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1,0 ABSTRACT 

THE RKH/HK05 PERFORMANCE EXERCISER IS A HIGH LEVEL EXERCISEP 
PROGRAM A IMED AT SIMULATING A RK11/RK05 SYSTEM ENVIRONMENT AMD 
CHECKING FOR ERRORS THAT ARISE IN SUCH AN ENVIRONMENT 
(INTERACTION, POLLING* ETC) , IT ALSO PROVIDES A MEAN S Of 
EVALUATING A SYSTEM THROUGH ITS ERROR LOGGING AND DATA^TRANgFEP 
LOGGING FACILITIES 

AT THE BEGINNING OF THE PROGRAM THERE IS A SERIES OF TESTS 
SPECIFICALLY AIMED AT DETECTING AND ANALYSING FAILURES ASSOCIATED 
WITH BOUNDARY CONDITION TRANSFERS * 

THE LATTER PART C AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 

EXERCISER , 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A, PDPU WITH CONSOLE TELTYPE 

B e 8K OF MEMORY • 12K FOR CHAIN MODE 

C 9 RKU OR RKVU CONTROLLER 

D 8 1-8 RK05 Op RK05F DRIVES (DRIVE TYPES MAY BE MIXED) 

2®2 PRELIMINARY PROGRAMS 

SINCE THIS IS A HIGH-LEVEL EXERCISER PROGRAM THE CONTROLLER AND 
THE DRIVE SHOULD BE FREE OF BASIC FAULTS. IT IS POSSIABLE TO HANG 

THE PROGRAM I F THE HEAD POSITIONING LOGIC IS FAULTY UN DUAL 
DENSITY DRIVES. THUS THE FOLLOWING PROGPAMS SHOULD BE RUN BEFORE 
ATTEMPTING TO USE THIS PROGRAM, 

A, RKU BASIC LOGIC TESTS (I AND II) 

B , RK11/RK05 DYNAMIC TESTS 

C e RK05 UTILITY PACKAGE (IF NEEDED) 

2,3 EXECUTION TTME 

THIS VARIES FROM 30 TO 90 MINUTES FOR A PASS, IT SHOULD BE NOTED 
THAT THIS IS AN EXERCISER LEVEL PROGRAM AND SHOULD BE PREFERRABLY 
RUN FOP A LONG PERIOD OF TIME, 

NOTE | THE FIRST PASS IS A SHORT (5-20 MINUTE) PASS TO SERVE AS 
A QUICK VERIFY OF THE RK SUBSYSTEM, 

3,0 STARTING ADDRESS 

200 • ALL SWITCHES DOWN @ SEE SEC , § § FOR SWITCHES, 

210 • RESTART ADDRESS , THE RESTART ADDRESS PROVIDES THE USER WITH 
AN ABILITY TO GO STRAIGHT TO EXERCISER PART OF THE PROGRAM 

C SKIPPING TESTS i*®?3® THERE IS A SWITCH OPTION (SW 4) WHICH 
ALLOWS THE USER TO INHIBIT THE REWRITE OF RANDOM PATTERN^ ON ALL 
DRIVES^ ON RESTART , SEE SEC® 
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4.0 PROGRAM CONTROL MODFS AND OPERATOR ACTION 

PAPFR TAPE LOADING 
RKDP DUMP MOD F 
PKDP CHAIN MODE 
ACT1 1 

4.1 PAPER TApF LOADING 

4,1,1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE FOR ABSOLUTE 

TAPES, 

4,1 8 2 HAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED WITH DISKS AND 
APE IN 'RUN' , 'WRT ENABLE * THEM, CHECK THAT ' WRT PROT* LIGHT ON 
THESE DRIVES IS OFF , PUT DRIVES THAT ARE NOT TO BE TESTED ON 

^ LOAD g 

4,1,3 LOAD ADDRESS 200 



4,1,5 THE PROGRAM IDENTIFIES ITSELF 
MAINDEC-l 1-DZRKH-G 
RK11 /PK05 PERFORMANCE EXERCISER 
THEN IT PROCEEDS TO TEST THE DFTVFs, 

4,2 RKDP DUMP MODE 

4,2,1 THE PROGRAM IS LOADED BY THE RKDP MONITOR, 

4 9 2 9 2 SET SAsi200 @ SELECT ANY SWITCHES YOU WANT AND PRESS START , 

4,2,3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT? 

*TQ TEST DRIVE *N* HALT PROGRAM , REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM 

1M RESPONSE TO THIS MESSAGE? PERFORM THE ACTIONS REQUESTED IF THE 
DRIVE ON WHICH THE RKDP PACK IS MOUNTED IS TO BE TESTED, 

4 S 3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE # N% AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS! 

# DRIVS NOT TESTED* 

DRIVE WILL NOT BE TESTED SINCE THE RKDP PACK IS ON THAT DfUVE e 



4 9 1 @ 4 



SET SWITCHES IF DESIRED (SEE SEC 6,0) AND PRESS START 
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4®4 ACTit NODE 

THE PROGRAM Is LOADED BY THE ACTll MONITOR, AFTER IDENTIFYING 

ITSELF^ ASCERTAINS THE NUMBER OF DRIVES PRESENT AND PROCEEDS TO 
TEST EACH OF THEM AS BEFORE, 

5,0 DRIVE SELECTION 

PUT ALL THE DRIVES THAT APE TO BE EXERCISED AND TESTED ON *RUN% 
WRITE ENABLE THEM , MAKE SURE THAT THE # WRT PROT^ IS OFF* THE 
PROGRAM RECOGNIZES THAT THESE DRIVES mE QN LINE AND PROCEEDS TO 
TEST THEM % BK0§F DRIVES WILL HAVE THE LETTER F TYPED AFTER THE 
DRIVE NUMBER* 

If A FATAL ERROR OCCURS OM A DRIVE ^HILE THE PROGRAM IS RUNNING 
THE DRIVE, IS AUTOMATICALLY DESELECTED C^DSELCT^) AND DROPPED FRO?* 
THE DRIVE SELECTION him® 



6®0 SWITCH OPTIONS 



IF THE PROGRAM IS BEING RUW ON A SHITCHLESS PROCESSOR (I.E. AN 
11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 
REGISTER IS NOT PRESENT AND WILL USE A •SOFTWARE" SWITCH REGISTER t 
THE 9 SOF^fci ARE # SWITCH REGISTER 15 LOCATED AT LOCATION 176 (*)• 
THE SETTINGS OF THE # SOFT^ARE f SWITCHES APE CONTROLLED THROUGH A 
KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G% THE 
PROGRAM WILL RECOGNIZE THE ^CONTROL G WHENEVER THE PROGRAM ENTERS 
THE SCOPK ROUTINE OR BEGINS A HFM TEST, THE # SOFTWARE # SWITCH 
VALUES ARE ENTERED AS AN OCTAL MUMpKR I.N RESPONSE TO THE PROMPT 
FROM THE SWITCH ENTRY ROUTINE! 



'SWR a NNNNNN NEW 



EACH TIME SWITCH SETTING ARE ENTERED* THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED 9 LEADING ZPCROS ARE MOT REQUIRED , 9 # PUBOUT # 
AND ^CONTROL U # FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY a OM PROCESSORS $ XTH HARDWARE SWITCH 
REGISTERS* THE 9 SOFTWARE 9 SWITCH REGISTER MAY BE USED 9 IF THE 
PROGRAM FINDS ALL 16 SWITCHES IN THE ^UP # POSITION, ALL SWITCH 
REGISTER REFERENCES WILL BE TO THE # 50FT^APE # REGISTER AND THE 
PROCEDURES DESCRI BED ABOVE MUST BE FOLLOWED s 

gW€tg>ni HALT OM FRROR 

SW<i1>ni INHIBIT ERROR PRINTOUTS 

SW€l2>nt TYPE OUT THE EPROR HISTORY 

SW<1J>«1 DUMP OUT ALL PK11 REGISTERS 

g$€i0^nl RING BELL OW ERROR 

SW€09»3il LOOP ON SPECiriC ERROP 

SW<0S>«1 DUMP OUT TRANSFER DATA AMD ERROR STATISTICS 
S^€0$>ml SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS 
SW<05>«1 HALT BEFORE DOING THE NEXT SET OF COMMANDS 
SW<04>»1 DO WOT REWRITE THC DISKS OW 210 PETSART 

a^€03>®t TYPE OUT ELAPSED TIME IT ERROR 
SW<02>*1 DROP DRIVE AFTER ^h%imn ERRORS 
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8W«0f>n| TYPE SERIAL NUMBER Of ERRORING DRIVE 

5'W<00>»1 TYPE ONLY ELAPSED TIME IF SW<0I> AND SW<03» ■ 1 

8.1 SW<1§> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THF 
ERROR MESSAGE AND PERTINENT INFORMATION, PRESSING "CONTINUE" 
RESTORES NORMAL OPERATION Of THE PROGRAM B 

6.2 SW<13» 

THIS SWITCH INHIBITS ALL ERROR MESSAGES ® NORMALLY USED WHEN 
LOOPING ON ERROR CSW 9) , 

6 9 3 S*<12> 

IF THIS SWITCH is SET WHEN AN ERROR OCCURS, INFORMATION ABOUT THE 
HISTORY OF" THAT ERROR IS TYPED OUT 8 

THE FUNCTION THAT WAS BEING PERFORMED ON THE RK11 IS TYPED OUT , 
THE FUNCTION COULD BE EITHER A READ* WRITE, WRITE CHECK, READ 
CHECK, BFSIDES THESE NORMAL FUNCTIONS, IT COULD BE A CONTROL 
RESET, DRIVE RESET OR POSITIONING OF THE HEADS (SEEKING) f FOR THE 
FOUR FUNCTIONS THE INITIAL DISK ADDRESS, BUS ADDRESS AND WORD 
COUNT (2'S COMPLEMENT) ARF ALSO GIVEN 9 FOP DRIVE RESET AND 
POSITIONING THE DRIVE NUMBER OR WHICH THE OPERATION WAS BEING 
PERFORMED IS GIVEN, 

SIMILAR INFORMATION IS TYPED OUT ABOUT THE FUNCTION THAT WAS DONE 
JUST BEFORE THE ONE GIVING THE ERROR® 

6.4 SW<H> 

IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE CONTENTS OF ALL 
RMI REGISTERS ARE TYPED OUT e 

6*5 S*K09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP, LOOPING IS 
DONE WHEN AN ERROR OCCURS, NOTE THAT THERE ARE TWO CLASSES OF 
ERRORS AND HENCE TWO CLASSES OF ERROR LOOPS, REFER TO SEC 8 e FOR 
THE DIFFEPNECF IN THE ERROR LOOPS PROVIDED BY SW 9 t 

6*6 SW«08> 



WHEN THIS SWITCH IS SET, THE ERROR AND TRANSFER DATA STATISTICS 
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT @ 

THE TRANSFER DATA STATISTICS GIVE THE NUMBER OF WORDS WRITTEN AND 
READ ON EACH DRIVE THAT IS PRESENT, IT SHOULD BE NOTED THAT READ 
CHECK AND WRITE CHECK ARE CONSIDERED TO BE ESSENTIALLY READ 

OPERATIONS , 

THE: ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE OCCURRED 
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C1F ANY) IN THE FOLLOWING CATEGORIES* ON THE DRIVES THAT ARE 
PRESENT! 

CHECK SUM ERROR 

WRITE CHECK ERROR 

DATA COMPARISON ERROR 

HARD ERROR 

SEEK ERROR 

SEEK INCOMPLETE 

ABORTS - WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE® IF 
STILL THE ERROR PERSISTS THE FUNCTION IS ABORTED AND THE ABORT 
COUNT IS INCREMENTED FOR THAT DRIVE , 

6 S 7 SW<06> 

THIS SWITCH ENABLES THE USER TO SELECT THE LIMITS OF THE MEMORY 
BUS ADDRESSES BETWEEN WHICH THE DATA TRANSFERS WILL BE DONE 9 
NORMALLY THE TRANSFERS ARE DONE BETWEEN THE LOWER LIMIT (BASEBA) 
AND THE HIGHER LIMIT ( MAXBA) , THESE TWO LIMITS ARE NORMALLY 
SELECTED Hi THE PROGRAM AND USE THE MAXIMUM AVAILABLE MEMORY, IF 
THE USER WANTS TO DO DATA TRANSFERS BETWEEN SELECTED MEMORY 
ADDRESSES (EX 8 BETWEEN 12K AND 16K) THEN THIS SWITCH SHOULD BE 
SET AT THE STARTING OF THE PROGRAM e THE FOLLOWING MESSAGE 
APPEARS! 

TYPF OCTAL BUS ADDRESS FOP DATA XFER* BETWEEN XXXXXX AND YYYYYYY 

LO LIMIT? 
HI LIMIT? 

IN RESPONSE THE USER SHOULD TYPE IN ANY TWO BUS ADDRESSES (OCTAL) 
BETWEEN XXXXXX AND YYYYYY, IF THE USER TYPES IN ANYTHING OUT OF 
THE X AND Y RANGE THfc QUESTION) TS ASKED AGAIN, 

THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE 
PROBLEM IS WITHIN THE RK1| OR OUTSIDE (IN MEMORY) 9 NORMALLY # IK 
THE PPORLFM IS WITHIN THE RKil, ERRORS WILL KEEP ON OCCURING 
REGARDLESS OK WHERE IN THE MEMORY DATA TPANSFFRS APE TAKING PLACE , 
ON THF OTHER HAND IF THE PROBLEM J$ MEMORY RELATED* THE ERRORS 
WILL TEND TO DISAPPEAR FOP DATA TRANSFERS TO CERTAIN MEMORY BLOCKS 
AND WOULD REAPPEAR FOR OTHER ONES* 

6 g 8 &W<0§> 

THIS SWITCH PROVIDES THE USER A CAPABILITY TO HALT THE PROGRAM AT 
A KNOWN POINT, THE HALT IS DONE AFTER THE CURRENT SET OF EIGHT 
COMMANDS IN THE QUEUE HAVE BEEN EXECUTED. THE "HALT" TS LOCATED 
AT THE BEGINNING OF THE *GEN8PQ* ROUTINE, JUST BEFORE A SET OF 9 
NEW COMMANDS IS GENERATED ® AFTER THE PROGRAM HALTS, THE EXECUTION 
CAN BE RESUMED BY PRESSING CONTINUE ? OR THE PROGRAM CAN BE STARTED 
BACK AT 200 OR RESTARTED AT 210, 

6®9 SW€04> 
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THIS SWITCH PROVIDES THE USER WITH AN ABILITY TO SKIP THE TIME 
CONSUMING REWRITE OF ALL THE DISKS WHEN THE PROGRAM IS RESTARTED 
AT 210, THIS SWITCH CAN BE USED ONLY WHEN RESTARTING THE PROGRAM 
AT 210 WITH SW 4 SET. ON RESTARTING THE PROGRAM AT 210; THE 
INITIAL BOUNDARY CONDITION TESTS (TST1-TST7) ARE SKIPPED, IE 
SWITCH 4 IS SET, THE REWRITE OF ALL THE DISKS (WHICH WOULD HAVE 
BEEN NORMALLY DONE) IS ALSO SKIPPED, THE USER IS CAUTIONED TO U$F 
THIS SWITCH CAREFULLY. THE DISKS SHOULD HAVE BEEN WRITTEN WITH 
RANDOM PATTERNS AT LEAST ONCE BEFORE RESTARTING THE PROGRAM AT 
210® IT SHOULD BE NOTED THAT TESTS 1*7 WRITF ON CYLINDERS 0,1, 
ON RESTART* THE STATISTICS COLLECTED SO FAR ARE SAVED e 

6,10 8W€03> 

THIS SWITCH ALLOWS THE TYPEOUT OF THE ELAPSED TIME AT WHICH ERROR 
OCCURRED, THE TIMING STARTS AT THE BEGINNING OF THE EXERCISER 
PROGRAM, THIS SWITCH SHOULD NOT BE SET IF KWJ 1L LINE CLOCK IS NOT 
AVAILABLE ON THE SYSTEM, 

6 9 JJ SW<02> 

THIS SWITCH CAUSES DRIVES WHICH EXCEED A MAXIMUM NUMBER OF ERRORS 
TO BE DEASSIGNED BY THE PROGRAM f THE PROGRAM CONTINUES TESTING 
OTHER DRIVES WHICH HAVE NOT ACCUMULATED THE REQUIRED NUMBER OF 

ERRORS , 

6,12 SW<01> 

IF THIS SWITCH IS SET , THE PROGRAM ALLOWS A SERIAL NUMBER TO BE 
SPECIFIED FOR EACH DRIVE TESTED , THE SERIAL NUMBER IS TYPED WITH 
EACH FRPOR MESSAGE FOR THAT PARTICULAR DRIVE, 

6 a 13 SW<00> 

IF SW<08> AND SW<03> APE SET, SETTING THIS SWITCH TYPES OUT THE 
ELAPSED TIME FROM THE START OF THE PROGRAM 9 
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7,0 EXERCISER PROGRAM 

THE EXERCISER PROGRAM ATTEMPTS TO SIMULATE & DISK OPERATING SYSTEM 
ENVIRONMENT BY DOING RANDOM EVENTS (FUNCTIONS) USIMG RANDOMLY 
SELECTED PARAMETERS (DISK ADDRESS* BUS ADDRESS ? WORD COUNT, ETC) , 
AN ATTEMPT IS MADE TO DETECT INTER-ACTION PROBLEM OVERLAPPING 
SEEK PROBLEMS* ETC , FOR EXAMPLE , OVF.p 500 MILLION BITS ARE 
TRANSFERRED PEP HOUR ON A TYPICAL RKI1/PKOS SYSTEM ( BASED ON 2 
DRIVES* PDPii/S0 # 28K SYSTEM], 

EIGHT JOBS OR COMMANDS ARE GENERATED AX A TIME CGENgRQ) AMD PUT I N 
A QUEUE TO BE PROCESSED, THE ALGORITHM WORKS AS FOLLOWS® 
COMMANDS IN THE QUEUE ARE PREPOSITIONED (HEADS) BY PREFORMING 
OVERLAPPING SEEKS • WHILE SOME OF THE DRIVES ARC BEING POSITIONED* 
THE LAST A VA ILABLE ( AND EXECUTABLE ) COMMAND 16 PERFORMED 8 THUS 
WHILE SOME DRIVES ARE BUSY POSITIONING THEIR HEADS, SOm DRIVE 1 S 
PERFORMING A FUNCTION ( DATA TRANSFER, ETC) . AS SOON AS THE 
CONTROLLER IS FREF , A CHECK IS MADF TO SEE IF THERE IS AMY DRIVE 
WHICH HAS ALREADY POSITIONED ITS HEAD, IF ONE IS FOUND THE 
COMMAND IS EXECUTED ON THAT DRIVE AND THE CONTROLLED AGAIN BECOMES 
BUSY® IF NO POSITIONED COMMAND 1 5 FOUND ^ A CHECK IS MADE TO SEE 
IF THERE TS A COMMAND THAT IS TO BE POSITIONED, IF YES, IT IS 
POSITIONED AND THE LAST AVAILABLE COMMAND IB EXECUTED . IF IT IS 
FOUND THAT NO DRIVE NEEDS TO BE POSITIONED (THIS COULD HAPPEN IF 
THERE IS ONLI ONE COMMAND LEFT IN THE QUEUE OP THE REMAINING 
COMMANDS IN THE QUEUE ARE TO BE PERFORMED ON THt &h^E DRIVE) r THEN 
THE COMMANDS IS/ APE EXECUTED , 

THE. ABOVE ALGORITHM HELPS SIMULATE h RE! AL ENVIRONMENT, AT THE S^ME 
TIME MAXIMISING THE PATE OF DATA TRANSFERS, THE EXERCISER PROGRAM 
GIVES AN ELABORATE ERROR DETECTION CAPABILITY* THE STATE OF THE 
PROGRAM IS CONTINUOSLY TRACKED BY SOFTWARE KEYS* FLAGS. ETC . 
THESE FLAGS AND KEYS HAVE BEEN EXPLAINED TN DETAIL AT THE BEGINING 
OF THE LISTINGS, WHERE THEY ARF DEFINED, ON DUAL DENSITY DRIVES, 
ONLY OWE LOGICAL DRIVE IS SELECTEO DURING EACH QUEUE BUILD, THIS 
INSURES THAT OVERLAPPED SEEKS WILL NOT I NTEFEP trf T T H THE AD 
POSITIONING LOGIC « 

THE PARAMETERS USED FOR DOING THE COMMANDS ARE SELECTED RANDOMLY 
USING A RANDOM GENERATOR , THE FUNCTION TO BE PERFORMED IS 
SELECTED RANDOMLY FROM ONE OF THE FOURf WgTTE, RE AD * ^RlTE CHECK, 
OS READ CHECK 9 THF DRIVE NUMBER IS SELECTED FPOM THE AVAILABLE 
DRIVES 9 THE DISK ADDRESS IS SELECTED OVER THF ENTIRE RANGE AND 
THE $QRD COUNT AND BUS ADDRESS APE SELECTED RANDOMLY IN SUCH A WAY 
THAT A NON-EXISTENT MEMORY ERROR Or OVERRUN CONDITION DOES NOT 
OCCUR, 

RANDOM DATA BLOCKS ARE WRITTEN ON THE DISK, THE FIRST WORD OF 
EACH SECTOR SLOCK IS A DUMBER (2 f g COMPLEMENT) INDICATING THE 
TOTAL NUMBER OF WORDS WRITTEN I N THAT SECTOR 9 THE REST OF THE 
WORDS IN WE BLOCK ARE GENERATED USING THE DISK ADDRESS ( OF THJIT 
SECTOR) AS THE RANDOM SEED NUMBER @ 
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8,0 LOOPING C&P&BTLITSESf 

SWITCH 9 GIVES LOOPING C APABILXTIE8# ON ERR0R 9 THERE ARE TWO 
CLASSES OF ERR0R8I 



A 9 ERRORS OCCURiNG IN THE NON-EXERCISER PART DF THE PROGRAM 
(ERROR NUMBERS UNDER 100 IN THE ERROR ITEMS TABLE) 

B 8 ERRORS OCCURIMG IN THE EXERCISER PART OF THE PROGRAM ( ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE 5 

C* NON-EXERCISER SCOPE LOOPSl IN THIS CASE? THE PROGRAM LOOPS ON 
A SPECIFIC ERROR GIVING A NARROW SCOPE LOOP 9 THIS SCOPE LOOP 
IS SIMILIAR TO THE ONE PROVIDED IN THE PKH BASIC LOGIC TEST 
AND DYNAMIC TEST# WHICH THE USER MIGHT BE FAMILIAR wJITH, 

D 9 EXERCISER SCOPE LOOPSl WHEN AN ERROR OCCURS (AFTER TYPING OUT 
THE ERROR MESSAGE) CONTROL IS TRANSFERRED TO THE BEGINNING OF 
THE COMMAND-QUEUE. THE COMMANDS FROM THE FIRST COMMAND 
ONWARDS, ARE EXECUTED AGAIN TILL THE POINT OF ERROR* THIS 
LOOPING PROVIDES THE USER WITH A CAPABILITY TO PECREATE A SET 
OF EVENTS THAT LED TO THE ERROR . 



9 a O TRANSFER DATA LOGGING 

IN THIS PROGRAM , WHENEVER A DATA TRANSFER TAKES PLACE IT IS LOGGED 

WHETHER IT IS READ g READ CHECK, WRITE OR WRITE CHECK a SEPERATE 

COUNTS ARE KEPT FOR DATA TRANSFERS TAKING PLACE ON EACH DRIVE IN 
THE SYSTEM. AT ANY GIVEN TIME THE USER CAN GET THESE TRANSFER 

STATISTICS BY SETTING SWITCH 8 TO i (SEE SEC. 6, 6). THIS IS 
HELPFUL FOR EVALUATING A SYSTEM , 



10,0 ERROR LOGGING 

THROUGHOUT THE EXERCISER PROGRAM, WHEN AN ERROR OCCURS IT IS 
LOGGED B THE FOLLOWING CLASSES OF ERRORS ARE LOGGED FOR EACH DRIVE 
IN THE SYSTEMf 

CHECK SUM ERROR 

WRITE CHECK ERROR 

DATA COMPARISON ERROR 

HARD ERRORS 

SEEK ERROR 

SEEK INCOMPLETE ERROR 
ABORTS 

THE ERROR STATISTICS CAW BE OBTAINED BY PUTTING SWITCH 8 TO 1 . 
THE ERROR STATISTICS CAN BE USED IN CONJUNCTION WITH DATA TRANSFER 
STATISTICS TO GIVE AN IDEA OF THE SYSTEM PERFORMANCE (NUMBER OF 
WORDS TRANSFERRED PER ERROR* CSE FREQUENCY, RECOVERABLE VERSUS 
NQNwRECOVEPABLE errors ETC 9 ) t 
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11,0- ERROR REPORTING AND RECOVERY 

WHENEVER AN ERROR OCCURS IT IS REPORTED ALONG WITH RELEVANT 
INFORMATION, THE RK11 REGISTERS REPORTED IN THE ERROR MESSAGES 
REPRESENT THE CONTENTS AT THE TIMF OF ERROR c EACH ERROR MESSAGE 
CONTAINS A # PC NUMBER 9 THIS IS THE PC LOCATION IN THE PROGRAM 
WHERE THE ERROR CALL IS LOCATED, THE USER IS ADVISED TO REFERENCE 
THIS LOCATION IN THE LISTlNGSi IN CASE MORE INFORMATION ABOUT THE 
MROR IS DESIRED® 

SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH ARE 
USED TO MONITOR THE ONGOING ACTIVITIES ON THE SYSTEM , THESE FLAGS 
ARE EXPLAINED AT THE BEGINING OF THE LISTINGS AND SOULn BE 
REFERRED TO, IF THE NEED ARISES, 

IF A FATAL ERROR CONDITION IS DETECTED (LIKE DRIVE UNSAFE, WRITE 
PROTECT SET* DRIVE READY CLEAR, ETC,) THE DRIVE IS REMOVED FROM 
THE DRIVE SELECTION TABLE AND DROPPED FROM FURTHER TESTING, A 
MESSAGE IS GIVEN INDICATING DROPPING OF THAT DRIVE. FOR FURTHER 
INFORMATION, REFER TO THE 'CHKDPV* AND 'DSELCT' ROUTINES IN THE 
LISTINGS, 

RECOVERABLE ERRORS ARE RETRIED THREE TIMES, IF THE ERROR 
CONDITION FAILS TO CORRECT OR A IF A DIFFERENT ERROR OCCURS THE 
FUNCTION TS ABORTED, MESSAGES APE PRINTED ONLY ONCE FOR EACH 
PPPOR t AFTER EIGHT ABORTS ARE RECORDED ON A DRIVE THE DRIVE IS 
DROPPED , DUAL DENSITY DRIVES ARE ALWAYS DROPPED IN PAIRS. 
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12,0 SUBROUTINES AMD HANDLERS 

THERE ARE TWO WAYS IN WHICH MOST Of THE SUBROUTINES USED IN THIS 
PROGRAM ARE CALLED! 

1 8 THROUGH THE NORMAL JSP CALL 

JSR REG# SUBROUTINE 

7 9 THROGH THE * TRAP* INSTRUCTION , THE TRAP INSTRUCTION WITH ITS 
LOWER BYTE ENCODED SERVES AS A CALL FOR SOME ROUTINES, WHEN THE 
•TRAP* IS EXECUTED A TRAP OCCURS TO THE TRAP VECTOR AND THE TRAP 
DECODER IS ENTERED, THE TRAP DECODER (STRAP) WILL PICK UP THE 
LOWER BYTE OF THE ' TRAP* INSTRUCTION AND USE IT TO INDEX THROUGH 
THE TRAP TABLE (STRAPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL GO TO THE 
DESIRED ROUTINE, 

3, $SCOPE - THE SCOPE HANDLER 

THE SCOPE HANDLER IS ENTERED THROUGH THE EXECUTION OF THE # IOT' 
INSTRUCTION, IT KEEPS TRACK OF VAPIOUS POINTERS, FLAGS AND 
DECIDES IF LOOPING TS TO BE DONE ON ERROR (SW 9) . IT SHOULD BE 
NOTED THAT THIS HANDLER IS USED MOSTLY IN THE NON-EXERCISER PART 
OF THE PROGRAM, 

4* $ E R R R - ERROR HANDLER ROUTINE 

THE ERROR HANDLER IS ENTERED THROUGH THE EXECUTION OF THE *EMT* 
INSTRUCTION f THE LOWER BYTE OF THE EMT INSTRUCTION IS ENCODED TO 
GIVE AN IDENTIFIER TO THE EPROP CALL 9 THUS 'ERROR 1' IS 104001 , 
ETC * THE ERROR ROUTINE DECIDES IF ANY ACTION IS TO BE TAKEN 
DEPENDING ON THE SWITCH SETTING (LIKE? HALT ON ERROR * INHIBIT 
ERROR TYPEOUT f ETC 9 ) 9 

MOST OF THE SUBROUTINES RESIDE IN THE LATTER PART OF THE PROGRAM * 
THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE TABLE AT THE 
END OF THE LISTINGS OR TABLE OF CONTENTS AT THE BEGIN ING , 
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Sit 

W .TITLE MD-li-D8RKHG» RX1I-BK0I PERfORMANCB BXBRCSIER 

SS9 fKOPYRXGHT (gj 1973#1977 

190 l*niOXTAL EQUIPMENT CORP e 

191 | •MAYNARDi MASS ( 01784 
593 |* 

193 f tPRQGRAM SY JXM KAPADZA 

^9S |#THXS PROGRAM WAi AISBMBtfD USZNG THE PDP-11 MaXNDEC ifSMM 

Sfi |*PACXAOC (MAZNDBC«U«DSQAe-CS)f aAN 1ft, If f f 9 

197 j# 

If® 9«RBVXSBD IV 810RQI GALLANT, TOM §AW¥g$ • MARSH iff I 

S99 ;#R1VII16 SY CHUCK Hill a AUGUIT 1971 

400 9 §STfL OPERATIONAL MITCH il?TlH@i 

USE 



101 


|tt 




*o? 


}# 


SWITCH 


603 


>* 




604 


ft 


41 


SOS 


|« 


14 


606 


,» 


13 


607 


I* 




60S 


I* 




609 


,« 


8 


610 


1* 


X 


611 


I* 


5 


612 


|# 


4 


613 


l« 


3 


614 


,® 


T 


615 


I# 


i 


616 


?# 




617 


1* 


Ti" 



HALT ON ERROR 
LOOP ON TCBT 
TYPE OUT ERROR HISTORY 
BELL ON ERROR 
LOOP ON ERROR 

TYPE OUT ERROR AND TRANSFER DATA STATISTICS 
SELECT BUS ADDRESS LIMITS FOR DISK DATA TRANSFERS 
HALT BEFORE DOING NEXT SET OF COMMANDS (GEN8RQ) 
DO NOT REWRITE THE DISKS ON RESTART AT 210 
TYPE OUT ELAPSED TIME AT ERROR 
DROP DRIVE AFTER MAXM ER0R8 ON THIS DRIVE 
TYPE SERIAL NUMBER OF ERRORING DRIVE 
IF SW8»1, ONLY TYPE ELAPSED TIME 
DUMP OUT ALL RK11 REGISTERS ON ERROR 

618 
619 

fc 2° I* YOU ARE ADVISED SO READ THE DOCUMENT FOR THIS PROGRAM® 
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621 

622 
623 
624 
625 
62* 
627 
62« 
629 
fi30 
631 
632 
633 
634 
639 
636 
637 
639 
639 
640 
641 
642 



000011 
000012 
000015 
000300 
177776 

177774 
177772 
177570 
177570 



,8BTTL BASIC DEFINITIONS 

f »INITIAL ADDRESS OF THE STACK POINTER ##♦ 1100 ••• 

STACKsi 1100 

,EQUIV EMT»ERROR ff BASIC DEFINITION OF ERROR CALL 

9 EQUIV IOT, SCOPE } | BASIC DEFINITION OF SCOPE CALL 

^MISCELLANEOUS 

HTa 11 



LFb 
CR» 
CRLF® 
PSe 



12 
13 
200 
177776 



«EQUIV P8,PSW 
STKLMTn 177774 
PIRQ8 177772 
DSWRs 177570 
DDISPa 177570 



DEFINITIONS 

1 1 CODE FOR HORIZONTAL TAB 
flCODE FOR LINE FEED 
IfCODE FOR CARRIAGE RETURN 
I f CODE FOR CARRIAGE RETURN«LIHE fEtt 
I f PROCESSOR STATUS WORD 

If STACK LIMIT REGISTER 

ff PROGRAM INTERRUPT REQUEST REGISTER 

ff HARDWARE SWITCH REGISTER 

f | HARDWARE DISPLAY REGISTER 



643 


000000 


ROa 


%0 


644 


000001 


Rla 


13 


643 


oooooa 


R3« 


%2 


646 


000003 


R3® 


%3 


647 


000004 


R4« 


%4 


648 


000005 


RS® 


%i 


649 


000006 


R6b 


IS 


650 


000007 


R7» 


%7 


651 


000006 


SP® 


%6 


652 


000007 


PC® 


%7 


693 








6S4 




f#PRIORITY LEVEL 


655 


000000 


PRO* 





656 


000040 


PRiSB 


40 


657 


000100 


PR2® 


100 


656 


000140 


PR3« 


140 


659 


000200 


PR4® 


200 


660 


000240 


PR5a 


340 


661 


000300 


PR6® 


300 


662 


000340 


PR7» 


340 


663 








664 




l#»3WITCH REGSSTI 


665 


100000 


gWlSss 


100000 


666 


040000 


SW14a 


40000 


667 


020000 


sens® 


20000 


668 


OtOOOO 


SW13»! 


10000 


669 


004000 


SWli® 


4000 


670 


002000 


SWIOn 


2000 


671 


ooiooo 


SW09® 


1000 


672 


000400 


8W08a 


400 


673 


000200 


SW07® 


200 


674 


000100 


SW06® 


100 


67S 


000040 


8W05a 


40 


676 


000020 


SW04® 


20 



f*GENERAL PURPOSE REGISTER DEFINITIONS 

ff GENERAL REGISTER 
ff GENERAL REGISTER 
ff GENERAL REGISTER 
ff GENERAL REGISTER 
ff GENERAL REGISTER 
ff GENERAL REGISTER 
f f G1HIRAL REGISTER 
ff GENERAL REGISTER 
f f STACK POINTER 
ff PROGRAM COUNTER 



II PRIORITY LEVEL 

ff PRIORITY LEVEL 1 

ff PRIORITY LEVEL 

If PRIORITY LEVEL 

ff PRIORITY LEVEL 

ff PRIORITY LEVEL 

ff PRIORITY LEVEL 

ff PRIORITY LEVEL 
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677 
A 7« 
679 
SHO 
641 
W 
333 
§84 
3®S 
SIS 
#87 
SSi 
«R« 
#90 
SI I 
692 
493 
614 
iff 
696 
697 
SfS 
69«t 
700 
701 
702 
701 
704 
70S 
70S 
707 

ion 

701 
7 tO 
71! 
712 
711 
7H 
71S 
716 
717 
718 
7l<> 
720 
731 
177 
723 
724 
7?S 
72^ 
727 
738 
729 
710 
731 

7ia 



000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
00020n 

oooioo 

000040 
000020 

000010 
000004 

000002 
oooooi 



000004 
000010 
000014 

OOOOH 
000014 
000020 

000024 
000030 
000034 
0OO06O 

000064 
000240 



a®03® 

SW028 

gtfQls 

swoons 

S CQUZV 
jEQUIV 
,EQUIV 

9 £qusv 

9 E0UI¥ 
.EQUXV 

8 EQUXV 
8 S9UXV 
8 E®UIV 



10 
4 
3 
1 

swof,aw<8 
swot ,awa 

SW07#iW7 
aW0fi,§W6 

swog,swi 

IW04i#W4 
§W0S#SW| 
$W0§ # SW| 
SWOlfStfl 

§W00,§W0 





llf DEPINXT 


SITU® 


100000 


SIT14b 


40000 






20000 




una® 


10000 




iSflli 


4000 




SSfiOis 


3000 




BXTOflV 


1000 




gifoii 


400 




SIT07® 


200 




•XTOfa 


100 




SITQSa 


40 




§XT045S 


30 




ISfOSffl 


10 




SITOI® 


4 






3 




SIfOOts 


% 




9 EQUXV 


BIY09# 


SXfl 


V EQUXV 


SXTOI, 


Slfl 


.EQUXV 


1IT07# 


mi 


8 B@UXV 


BIT06, 


•its 


9 EQUIV 


BXTOB* 


BXTB 


9 EQU2V 


BXT04* 


8XT4 


9 EQUXV 


BXTOJf 


• IT1 


e iQUIV 


BIT02# 


BIT2 


9 EQUIV 


BZT01» 


BZT1 


8 S0UIV 


BITOO, 


BITO 


|»BASXC 


"CPU" 


TRAP 


ERRVECts 


4 




RESVECs 


10 




T8ITVEC 


H4 






14 




BPTVEC® 


14 




I Of/EC a 


20 




PWRVEC* 


24 




gHfVECis 


30 




TRAPVEC»34 




TKVEC« 


60 




TPVISb 


34 




PIRGVICs»340 





IlTXME OUT AND OTHER ERR0R1 

if RESERVED AND ILLEGAL INSTRUCTIONS 

1 1 "T" BIT 

| f TRACE TRAP 

j f BREAKPOINT TRAP (BPT) 

f tINPUT/OUTPUT TRAP (XOTJ #»SCOPE## 

If POWER FAIL 

I | EMULATOR TRAP (EMT) ##1RR0R#® 

I | "TRAP" TRAP 

I f TTY KEYBOARD VECTOR 

I f TTY PRINTER VECTOR 

If PROGRAM INTERRUPT REQUEST VICTOR 
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DZRKHG S P11 aS«*APP«-77 SOUS S&ilC DEFINITIONS 

733 OOOIOO KMLVECalOO fKNiiL. CWCK VECTOR 

714 

735 .EQUXV BIT1B,ERR 

716 .EQUXY BIT14 a HE 

717 8 g§UIV SITlliieP 
718 

719 

740 8 E®US¥ S1T1S#DH 

741 9 I9UIV SXflOiSRU 

743 . EQUXV SXT9#,®IN 
741 8 E9UfV BXT07#DRY 

744 9 £QU1V iIT0| # RWi 

745 9 1@UIV SXTOSiTO 
746 

747 
748 

749 a SQUlV BXTlSfSXE 

730 ,EQUXV BXTOliCSE 

711 8 iaUSV BITOO»NCE 
7B8 

713 9 §SffL TRAP CATCHER 

7S4 

7SS 000090 9 s»0 

7a& $®hhh wmm locations rROM s • m contain a « a t2*MALT" 

i%i j®mmmm to catch illegal, traps and xuTSftnupfs 

7SS j*LOCATXON 6 CONTAINS TO 6&TCH IMPROPER!* LOADED VECTORS 

7iS O0G174 a ®t74 

no 0aoii4 oooooo dispreoi ,mm o HSorTHARE display reqister 

7§t 000176 000000 $«R1@$ .WORD || SOFTWARE SWITCH REOISTER 

713 .SITTL STARTINO AODRESS(ES) 

7§3 OOOfQO 000137 O0337I JMp USTART fiaUMp TO STARTING A89RIIS Of PROGRAM 
714 

7&§ 000119 f RliTART ADDSIISS; If flgSfASIT li 

766 000910 10S237 0OIIS1 1NCS PRSTRT f DONE AT 210, THI BOUNDARY CONDITION 

747 000114 00OI37 003J7S JMP USTART » TESTS <f®Tl*7) ARI SKIPPED, Sf SM 4 

7SS | IS SET THEN THE DISKS ARE NOT REWRITTEN 

769 f (WRDSK) WITH RANDOM PATTERNS, NORAMALLY 

770 f ALL THE DISKS PRESENT ARE COMPLETELY 

771 f WRITTEN WITH RANDOM PATTERNS* AT THE 

772 f BEGINING Of THE 

77 3 f EXERCISER PART OF THE PROGRAM , 
774 

77S 8 SITTL &CT1S HOOKg 
77& 

777 } f #######®#®#®###^####®##########«#########®####®########®######® 

77i fHOOKI MQUmm ®Y ACTil 

779 000220 SIVPC® 9 pSAVE PC 

7i0 000046 ,846 

7Si 000^4g 02r/30 S£NDAD f f DBET L0Cg4S TO ADDRESS Of IENDAD » 9 $S0l» 

782 000032 t «52 

783 000'J32 OOOOOO .WORD f f 2)8ET LOC.82 TO ZERO 
7 ft 4 000220 <8$SVPC f | RESTORE PC 

7flS 

?8S f KTU REGISTER DEFINITIONS 

717 a SBTTL MEMORY W&GEWT DEFINITIONS 

7g§ 
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0iP«HS 8 PH aS»APR»77 \ft| 1 8 MEMORY MANAGEMENT Diff (41TIQNI 

719 f»KTi! VECTOR AD0«SS 
710 

791 000310 MMVIC^ no 
792 

791 f#KTii ST&fUi RBOXATER addrssiii 
794 

793 17787J S«0s§ I77S7S 

79ft 177«J74 8Rt» 177874 

797 177S76 177S7S 

7$fl J 795 3 ft 173516 
799 

800 fftKeRNKL H I fi DEJCRXPTQR RCOIITCM 

801 

aoa 171300 kzpdrob maoo 

803 173302 KIPDRl® 173303 

804 172304 OFDM® 172304 

805 172106 KIPDR3a 172306 

806 172310 KIPDR4® 172310 

807 172312 KIPDRSb 172312 

808 172114 KIPDR6* 172314 

809 172316 KIPDR785 1 72316 
810 

811 ( *K£RNEL "D" PAGE DESCRIPTOR REGISTERS 

812 

813 172320 KDPDROk 172320 

814 172322 KDPDRIb 172322 

815 172324 KDPDR2B 172324 

816 172326 KDPDRSss 172326 

817 172330 K0PDR4B 172330 

818 172332 KDPDRSs 172332 

819 172334 KDPDR6® 172334 

820 172336 KDPDR7a 172336 
821 

822 |*KERNEL "I" PAGE ADDRESS RE6X8TCRS 

82 3 

824 172340 KlPAROs 172340 

825 172342 KlPARls 172342 

826 172344 KIPAR20 172344 

827 172346 KlPAR3a 172346 

828 172350 KIPAR4* 172350 

829 J 72352 KIPARSo 172352 

830 172354 KIPAR6* 172354 
«31 172356 KIPAR78 172356 
P32 

833 f ^KERNEL "D" PAGE ADDRESS REGISTERS 
834 

835 172360 KOPAROe 172360 

836 172362 KDPARla 172362 

837 172364 KDPAR2* 172364 
83R 172366 KDPAR3» 172366 
8 39 172370 KDPAR4ss 172370 
840 172372 KDPARSe 172372 
843 172374 KDPAR6* 172374 
842 172376 K0PAR7® 172376 
843 

844 



MD*.lt»>DZRKHfi ? PKll-PKOS PERFORMANCE EXERCISER MACYll 30(1046) 06*JUN*77 14199 P&GS |f 



DZRKHG, 


P1 1 25 


«>APR-77 10S18 


COMMON 


TAGS 






845 
846 






s S8Tf L 


COMMON 


TAGS 




847 








848 






f»TH!S 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


849 
850 






j^USED 


IN THE PROGRAM , 




851 




001100 




e ssllOO 






852 


001100 




flCMTAGs 






ffSf&Rf OF COMMON TAGS 


853 


001 1 00 


000000 


SPASSt 


,WORD 





( {CONTAINS PASS COUNT 


854 


0011 02 


000 


STSTHMf 


.BYTE 





I {CONTAINS THE TEST NUMBER 


855 


001103 


000 


$ERFLG| 


S BVTI 





) {CONTAINS ERROR FLAG 


856 


001 1 04 


oooooo 


8ICNT| 


s WORD 





( {CONTAINS SUBTEST ITERATION COUNT 


857 


001 1 06 


oooooo 


fLPAORt 


«WORD 





i {CONTAINS SCOPS LOOP ADDRESS 


858 


OOlt 10 


oooooo 


fLPERRi 


.WORD 





{ {CONTAINS SCOPE RETURN FOP. ERROR! 


859 


00H12 


oooooo 


gERTTLl 


.WORD 





{ {CONTAINS TOTAL ERRORS DETECTED 


860 


0011 14 


000 


ftXTEMBl 


? BYTE 





{ {CONTAINS ITEM CONTROL BYTE 


861 


001 1 15 


001 


SERMAX? 


.BYTE 


1 


{ {CONTAINS MAX, ERRORS PER TEST 


862 


0011 16 


oooooo 


$ERRPC§ 


, WORD 





{ {CONTAINS PC OF LAST ERROR INSTRUCTION 


863 


0011 20 


oooooo 


$GDADR| 


« WORD 





{ { CONTAINS ADDRESS OF 'GOOD* DATA 


864 


0011 22 


oooooo 


SBDADRt 


9 WORD 





{.{CONTAINS ADDRESS OF 'BAD* DATA 


86S 


001124 


oooooo 


iGDDATi 


9 W0RD 





{ {CONTAINS 'GOOD* DATA 


866 


001126 


oooooo 


SBDDAf | 


.WORD 





{{CONTAINS 'BAD* DATA 


867 


0011 30 


oooooo 




.WORD 





{ { RE8ERVED»«N0T TO BE USED 


868 


001 1 32 


oooooo 




.WORD 





869 


0011 34 


000 


•AUTOBi 


8 BYTE 





{ { AUTOMATIC MODE INDICATOR 


870 


0011 35 


ooo 


SlMTAGl 


(sBYTE 





} ( INTERRUPT MODE INDICATOR 


871 


001 1 36 


oooooo 




8 WORD 





872 


0011 40 


177570 


SWRt 


.WORD 


DSWR 


{ | ADDRESS OF SWITCH REGISTER 


873 


00H42 


177570 


DlSPLAYl .WORD 


DDISP 


{ {ADDRESS OF DISPLAY REGISTER 


874 


0011 44 


177560 


STKSl 


177560 




{ { TTY KBD STATUS 


875 


OOH 46 


177562 


STKBl 


177562 




{ { TTY KBD BUFFER 


876 


0011 50 


177564 


ITPSS 


177564 




{ {TTY PRINTER STATUS REG, ADDRESS 


877 


001152 


177S66 


STPBl 


177566 




{ {TTY PRINTER BUFFER REG, ADDRESS 


878 


001154 


000 


|NULL| 


a BY« 





{ {CONTAINS NULL CHARACTER FOR FILLS 


879 


001155 


002 


®fxlls§ 


.BYTE 


2 


{ {CONTAINS • OF FILLER CHARACTERS REQUIRED 


880 


001156 


012 


JFILLCl 


8 BYTE 


12 


?| INSERT FILL CHARS, AFTER A a LlNE FEUD® 


881 


0011S7 


000 


fTPFLGj 


9 SYW 





{ {"TERMINAL AVAILABLE" FLAG (•|T<07>»0«YE9) 


882 


001160 


oooooo 


IREGADi 


,WORD 





{ {C0NTAIN8 THE ADDRESS FROM 


883 












{ {WHICH ($RE603 WAS OBTAINED 


884 


001 162 


oooooo 


iREGOl 


.WORD 





{ (CONTAINS C(«REGAD)+0) 


885 


0011 64 


oooooo 


SREGil 


s WORD 


G 


{ {CONTAINS ( (tREGAD)+2) 


886 


0011 66 


oooooo 


SREGSi 


.WORD 





) {CONTAINS ( (lREGAD)+4) 


887 


001170 


oooooo 


IREG3 i 


9 WORD 





{ {CONTAINS ((|REGAD)+6) 


888 


00H72 


oooooo 


$REG4t 


.WORD 





{{CONTAINS (CfREGAD)+10} 


889 


0011 74 


oooooo 


SRSGSl 


a WORD 





{ (CONTAINS (CtREGAD)*l2) 


890 


001 t 76 


oooooo 


$REG6f 


g WORD 





( (CONTAINS ((SREGAD)+14) 


891 


001900 


oooooo 


IRE671 


a WORD 





? (CONTAINS ((IREGADX-16) 


892 


001202 


oooooo 


SREGlOi 


, WORD 





({CONTAINS ( ( IREGAD) +30 ) 


893 


001904 


oooooo 


SESCAPElO 




( f ESCAPE ON ERROR ADDRESS 


894 


001906 


177607 00037.7 


§BELLS 


9 ASCIS 


«a07>O77><377> 


( (CODE FOR BELL 


893 


001212 


077 


$QUES§ 


.ASCII 


n/ 


({QUESTION MARK 


896 


001913 


01S 


SCRLFs 


.ASCII 




( (CARRIAGE RETURN 


897 


001914 


000012 


SLFi 


B ASCIZ 


<12> 


( (LINE FEED 


898 








899 


001916 


177400 


RKDSI 


, WORD 


177400 




900 


001920 


177402 


RKERi 


e WQPD 


177402 





MD.11-DZP«Hf!, PKU-PKOS PFR'OP*ANCF tXEPClSEP MAC Yi 1 30t 1046) 06«JUN«77 14|SS PAGE 20 
DZRKHG.P1 1 25-APP-77 1 1 1 8 COMMON TAGS 



901 


001 922 


177 404 


R&CSl 


( WORD 


902 




177406 


RKWCl 


t wURD 


9u3 


001926 


177410 


RKBA | 


t wURD 


904 


onj 930 


1 77412 


RKOAl 


v WORD 


90S 


001912 






« wORD 


90ft 


001914 


! 17 |4& 


KWLSl 


8 ^ORD 


907 










90S 


001916 


000172 






$ 09 










910 


001 940 


000990 


RKVEC 1 


8 WORD 


111 


5flH4l 


009193 


SlKSTAT 1 




11 9 










913 


001944 


003140 


PPRLVIjI 


9 WOR§ 


• 1 4 










US 










IIS 










11 1 










#18 










9H 


001910 


I? f 7 7 7 






910 










131 










A 4 4 










f?S 










114 










92S 










III 


0©i9§| 


000 


PTITLII 


•byti 

• BYTE 


921 


0019S3 


000 


PRSTRTl 



177404 
177406 
177410 
177419 

177416 

i77S4* i status register ?m kwiil 

1S0® 

ii§ p NORMAL Mil MfllWII VECTOR ADDRESS 
Ml fPSN TO W Uli§ OK INTERRUPT 

S49 J PROGRAM PRIORITY UVBLtl. PRIORITY LEVEL 

|AT WHICH THE ii§§f?HH OPERATES CAN SI SHAWM 
I BY ALTER1NO THIS LOCATION, 

146 ipriority level m the KWS &b CLOCK SERVICE 

fROUTINE. 

177777 I'SRORV* CONTAINS THE DRIVE NO NHOOSE IBMAL 
I NO SS TO SI TYPED QUI NHEN AN BNNOR OCCURS* 
lit m I II SIT. NNBN (SRDRV)i«l SERIAL' MO 
ill NOT Iff TO OUT* IICAUSB 9HI ERROR WAS NOT 
I POSITIVELY ATTRIBUTABLE 10 A SPSCIP1C ORIVB. 





9 IPLAO fan RESTART If IS@ 
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928 ?fHXI TABLE CONTAINS (IN ORDER) THE ORIVB NUMBERS THAT ARE 

939 f PRESENT, THUS IF 3 DRIVES 0#1,2 ARE fRliSNTf PDR WILL CONTAZN PDR1 WILL 

Q|0 iCONTAIN 1 AND PDR2 MILL CONTAIN 2 8 THE UPPER BIT OF EACH *PDR* SYT1 IS SET IF THE 

931 ^CORRESPONDING DRIVS IS AN *t* DRIVE, 

912 

931 

934 0*1984 000010 PDR| «BLKB 10 
915 

936 001964 000000 DRVPRSl .WORD f£0!!?&lN§ TOTAL NUMBgR OF DRIVES PRESENT 

937 

9JB f THE FOLLOWING LOCATIONS CONTAIN SERIAL NUMBERS CORRESPONDING TO IACH 

9 39 f DRIVE 9 THE SERIAL NUMBERS ARE KEYED IN BY THE USER, mm THE PROGRAM 

940 |SS STARTED WITH SWITCH i SET TO 1, THSS FEATURE IS NORMALLY USED IN 

941 f PRODUCTION ENVIRONMENT* 

942 

943 001966 000010 SRNOl 9 SLK$ 10 y SERIAL NO'S POP ORIVES 0^7 

<944 
94f 

946 | THE FOLLOWING i RggYS ARE FOR THE S eOM*S&ffDS§ IN THE OUSUE» TO M 

947 f EXECUTED ON DIPPERENT Df?SY£I 8 EACH Ri¥ IS ASSOCIATED WITH AM EXECUTABLE 
94fl | COMMAND ON THE RKi 1 a VARIOUS BITS OF THE KEY DiiCRlSl a COMMAND 

949 f AS INDICATED BELOW 
950 

951 |<0*9> DRIVE NUMiER ON WHICH THE COMMAND IS T8 II EXECUTED 

982 f«4» INDICATES THAT W% HEADS kM BEING/OR HAVE UP 

93 3 I POSITIONED ON THE DRIVE 

914 f«S> INDICATE® A 9 WRT CHK* SHOULD Si DONE FOLLOWING THE 'MRITE' 

955 |<6» INDICATES A MRlff CHUCIC FUNCTION HAI 80 SNSTIATID 

956 |<7> INDICATES. THAT A FUNCTION SS IN PROGRMS {If IS NOT SIT 

987 | WHEN POSITIONING IS BEING DONE ON A DRIVE) 

988 p«S|®»10S» INDICATES THE f»0®SfION OF THIS KEY SN THE S>KEY TABLE 

9S9 $ (POSITIONS BEINO # i#Irl ? 4jS,# ? f J 

SAO f€|iS» INDICATES THAT FUNCTION COSIItg#peNB|f«@ fO THIS KET HAS 

96 t I SEEN ASORTiD 

962 f<13> INDICATES gI@M PRIORlff f OR THE gOfW&ISD {mm&hM 

963 f SIT AFTER AN 1SSR0R OCCURED ON THE COMMAND) 

964 f<g|4§» INDICAT1S THAT THE COMMAND CORRBSP OMDSi@ TO fHSS KEY MAS SUN 

965 P ABORTED SICAUSI ?Hi DRIVE MS DESSLSCfID CDHLICf) 

966 INDICATES THAT WE COMMAND MAS §111 COMfLITID 

967 f (ALSO Sit mm gOMMAND SS ABORTED APTER RBTRIIS) 

968 
f69 

970 eosiei oooolo mit ,blxn to jxey fm the sommandi si ouiue 

911 

til 

s7i if hi mnmmm to si uss® por lAgu emmm m the ausyg 

•74 f ARE SfSRfB SN A TABLE STARTING M S CMH©% llfS <t»|0» 

B7B fOP THE SOHMANB mm (XBY» KBYB» ^^®l«¥l) Ail UBED TO POINT 

97S | TO THE SSdHf «f 8F PARAMETERS « 

977 

S7S 

fit $ WORD t CONTAINS RRDA TO II USED 

• SO f WW i C0NTASW RKCS CFUNetlOW SSfl ONLY) 
911 I WORD I COMfASMS MW (WORD €©UMT mm) 

• IS I WODR 4 CONTAINS MIA 

• IS 



MD«U«OM*Hfli RKM«!»ttOS PUprODMANCK KXCftCXACP MACYil lOdOtt) Q§®*JU?*®?? UlBS PAOE il 

DMKMO.Hi 3%«APf>«?7 lOlSg SQMMON TACI 



114 
4IB 

QA« 

II? 

fis 

9ft« 
990 

991 

992 
991 
994 
99§ 

997 
998 
999 
inoo 
1001 
S002 
t003 
1004 
1005 
1006 
1007 
1009 
1009 
1010 
1011 
1012 
101 3 
1014 
1015 
101ft 
1017 
101 R 
1019 
1020 
1023 
1022 
1023 
1024 
1025 
10 26 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
S 034 
1035 
1036 
1037 
1030 
1039 



oonatj 000040 



C«ND| 



fATQRAQE TABU 



001 426 000010 



001 436 000010 



001146 000010 
001 156 000000 



001 460 000000 



001462 000000 
001464 000000 



001 466 
001 470 



001472 
001474 
001 476 

001 500 



001302 
001^04 
0Ol«l06 
001510 
001512 
001514 
001516 



000000 
000000 



000000 

oooooo 

000000 

oooooo 



oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



itnmt are susir ruai por tnb D&xvsa» if a drive n suiy pirpqrminq 

|ANY FUNCTION (INCLUDING POSITIONING) THIN i|f 1 Sf THE PLAO POR THAT 
iDRIVt II SIT. BITS 9®3 CONTAIN THI OPPSIT TO Kit # NHXCM MM TNI DM VI 
jBUAY, EX8 ORIVI 8J «tAA MM TO 09 A tfftlTB If COMMAND 
I KEYS, MINCS *§USYS* WILL eSNT&IN 310, NOTI THAT 10 IS THI 

fsrrsgf for keys (takino ics¥ ai baad, kiy #® oppset<o«i>/3 ♦ i 



BUSYS e BLKB 



10 



|BUS¥ fLAdS FOR DRXVES 0«? 



I THESE FLAGS WHEN SET INDICATE THAT A DRIVE II BBXNO 
I POSITIONED OR HAS ALREADY BEEN POSITIONED, 



POSt 



fDRIVE POiitlONED 



t RETRY COUNTS FOR A P&RfSCUL&R FUNCTION QM h DRIVE THE FUNCTION 18 ABORTED 
I ON A DRIVE WHEN THE RETRY COUNT REACHES 1 9 



RETRY! 8 BLKB 10 
WCFLGt .WORD 



QSCNTl .WORD 



PRSFNC1 » WORD 
PSffNCl 9 WQRD 



CICNTi 9 WQRD 
CICNTlj .WORD 



fDRIVES 0«7 RERTY COUNfS 

fir BIT IS II BET WRIT! gHK SS TO BE DONE 
?FOLL0W2NG THE HRIfE s BITS 0^3 CONTAIN THE 

; OFPSBf TO KEY! CFROM BASEssKEY) 

fTHIB IS A COUNT FOR KEEPIUG TRACK Of THE TIME 
(TAKEN BY ALL THE I COMMANDS IP THE ®UEUI 9 
»IP THIS COUNTS DOWN TO JUS ERROR IS REPORTED 



»COTJUNS INFO ABOUT THE PRESENT COMMAND 
jBEING PERFORMED ON THE RKlt 
fCONT&lNS SNFO ABOUT THi COMMAND PERFORMED 
| BEFORE THE * PRSCMND* 



I THIS IS h COUNT-TIMER USED FOR KEEPING f RACK 
pOF THE TIME TAKEN BY ANY FUNCTION TO 01 

f COMPLETED 9 IF THE COUNT GOES TO AN ERROR IS REPORTED « 



TIMERl B WORD 

ERCODEi s WORD 

DRVPTRj s WORD 

DRVCNTf 9 WQRD 



QDRVl 

QCYLi 

QSURS 

QSECf 

©FNC8 

QBUBADi 

QWRCNTs 



e WQR0 
„ WORD 
s WORD 
g WORD 
9 WQRD 
s WORD 
g WQRD 



f TEMf ORARY REGISTERS UUD BY 
f ROUTINE TO STORE VARIOUS PARAMETERS 
I OF A COWAND AS THEY &RE GENERATED, 
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1040 
1041 
1042 
1043 
J 044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1051 
1036 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
10S5 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
lOfll 
1082 
1083 
1084 
108S 



001520 
0OJ522 
001524 
001526 
001530 
001532 



001534 
001*35 



001536 
00i 3 40 



001*52 

001*554 
001556 
001560 



OOOOOO 
OOOOOO 

oooooo 
oooooo 
oooooo 
oooooo 



000 
000 



oooooo 
oooooo 



001542 000010 



oooooo 
oooooo 
oooooo 
oooooo 



oois62 ooooio 



001602 OOOOIO 



f THIS TABLE CONTAINS VARIOUS MAPPING FACTORS TO BE UilD 
jFOP GENERATING RANDOM pfkR&MITERg FROM RANDOM NUMBERS 

DRMAPi 8 WORD f MAPPING FACTOR FOR GENERATING RANDOM DRIVE MUMBER 

CYLMAP? e WORD j MAPPING FACTOR FOR CYLINDER 

SECMAPg 9 WORD j MAPPING FACTOR FOR SECTOR 

FNMAPl 9 W0RD fMAPPINS FACTOR FOR FUNCTION 

BAMAPt .WORD | MAPPING FACTOR FOR BUS MJDRESS 

KCMAPs 9 WORD fMAPPSNG FACTOR FOR $ORD COUNT 

I THESE TWO FLAGS CORRESPOND fO THE 2 IMf IRRUPT HAMDLiRg VAKill USED 
I IN THIS PROGRAM 8 WHEN THE INf IRRUPT HANDLER IS SNTgRED THE FLAG U 
I CLEARED OR SET g 



INTFLGl gBYTE 
INTlFLl , BYTE 



|FOR ^INTHMD 
I FOR 'XNT1SK* 



t CKARfD ON ENTERIMG HANDLER 
BET ON ENTERING HANDLER 



SAVKEYl , WORD 
ECOUNTu 8 WORD 

I THIS TABLE CQMTAMS COUNfS FOE MS MUMilR OP OF IRHORS OCCURING OM A 
fDRIVE CNOTil ONLY THOSE ERRORS WHICH AM POSSflVILY ATTRXBUfABLE TO A 

t SPECIFIC DRIVE). THE COUKT KEPT ONLf IF SWITCH 2 II SBT# WHEN THE COUMf 
I REACHES THE MAXIMUM ALLOWABLE (U8UALLY 35 THffi DRIVg IS DROPPED FROM 
I TESTING AMD IS TAKEN OUT OF THE DRIVE SiLECflOM T&BLI 9 



ERDRVs 9 BL&B 



iO 



KWHRS 9 WORD 

K^MINf «WORD 

KISSECl e WORD 

kmcounti <mm o 



}C0UMT FOR DRIVES 0®? 

fCQUHfS HOURS it*® COMPLENXNT) 

pCOUMTS MINUTES Ct*S COMPLEMBNT) 

j COUNTS SECONDS COMPLIMENT) 

ICOUMTS CPS FROM KH11L C3 9 S COMPLMMTI 



j THIS TABLE CONTAINS COUNTS FOR HARD IRRQRg ON A PARfXCUL&R DE1VI 9 
fEX HECN2 WILL CONTAIN THE TOTAL NUMBER Of HARD IRRORS THAf OCCURED OK 



f DRIVE 2 

HECNl e BLKM 



?DRIVE 0-T HARD ERROR SOUNfi 



f f HIS TABLE COHTAINS COUNTS FOR SSIK 1RR0RS 
SON A PARTICULAR DRIVE 9 



SRECN8 S BLKM 



idri¥2 o-T mm mm® cqumis 



1086 
1087 
108® 
1089 
1090 
1091 
1092 
1093 
1094 
109S 



001622 000010 



} THIS TABLE CONTAINS COUNTS FOR SIN ERRORS ON h 
f PARTICULAR DRIVE 



fDRIVE 0*7 SSN COUNTS 



I THIS TABLE CONTAINS COUNTS FOR WRITE CHICK ERRORS 
f THAT OCCURED ON A PARTICULAR DRIVE 



md®i i ®dip^H(1j BK11-PK08 pr&ro»MANCE txERCiSER hacyii 30(io4§) os-jun-77 hiss page 34 

D3RKHQ.PH 2«-APR«»77 10H* COMMON TAGS 

001833 OOOOtO WCKNi .ftLM IP COUNT FOR DMIVM 0®7 

fTHIi TABLE CONTAINI COUNTS fOR CHICK SUM SSROR THAT 
lOCCUPSD ON A PARTICULAR DRIVE 

ftOl^SS UOOOJO CSSSNi S 8LR® lO ICIS COUNT FOB DRIVES 0®7 

ifHIS T&ILI CONTAINS COUNT Of NUMSM Of fUNCf IQfli 
ffHAf MERE &SQRT1D QN A PARTICULAR DHIVf£ 9 A 
ffUW€fI9N il AI0MSD QNL¥ AFTM 901N§ RETRIES 

001 000040 ABQRTl B !LKW 10 | ABORT €OUNT FOB DRXVEI 0«7 

iceuNts rap numsir or data errors f mat occured on individual mtm s 
ooma ooooio dateri 8 slkm se idrives o«7 
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os-jun-77 i48ss page as 



001732 
001734 

00 J 736 



000000 
000000 
000016 



nmtht ,word o 

NfcRTHg .WORD 

.BLKH 14, 



|L0 WORDf OF THE 2 WORD COUNT-GIVING TOTAL 
|HX WORD | 8 Of WORDS WRITTEN ON DRIVE 
I FOR REST OF DRIVES i-7 



001772 000000 NPDLl « WORD f LO WORD I 2 WORD COUNT GIVING TOTAL 

on\774 000000 NRDHl .WORD |HX WORDi I OF WORDS READ ON DRIVE 

00177ft 000016 ,BLKW 14, |FOR DRIVES 1-7 

002*32 001326 PCMNOf , WORD CMND | POINTERS TO PARAMBTCRl POR COMMANDS XN QUIUg 

003«14 001336 .WORD CMND*10 } POINTER TO SECOND COMMAND 

003*56 001 346 .WORD CMND4-20 | POINTER TO THIRD COMMAND 

002*40 001356 , WORD CMND+30 j POINTER TO FOURTH COMMAND 

002*42 001366 .WORD CMRD+40 | POINTER TO f If TH COMMAND 

002044 001376 , WORD CMND^SO f POINTER TO SIXTH COMMAND 

002*46 001406 s WORD CMND+60 | POINTER TO SEVENTH COMMAND 

002*50 001416 .WORD CMND*70 {POINTER fO IIGHTH COMMAND 



002*53 000000 BASCRAI 9 WORD fCONT&INS THE LOWEST BUi ADDRESS STARTING WHICH DATA TRANSFER! 

fCAN be done 

002*34 000000 MAXBAi s WOf!D jCONTASNa THE HZOHBST SU§ AODREBB TO WHICH D&f& TRANSFERS 

;CAN BE DONE e 

ooiftss oooooo mwwt 9 mm o }Contains the repetition count* the number 

f Or TIMES Q REQUESTS WILL BE GENERATED, WHEN THIS 
iCOUNT GOES TO 0, IT MEANS AN END OF PASS, HOWEVER 
I MOTE THAT THERE XI NO TRUE END Of PASS* XN THIS KIND 
fOF IXERCSSiR PROGRAM, THE EXERCISER RESUMES f ROM 
f THE POINT IT LIFT OFF f AFTER TYPING OUT THE END IF 
fPASS MESSAGE* 

OOgflSO 000000 XXDPMDl 9 WORD © fLOW §¥« eONTAIHS ADDRESS Of RXOB DRIVE 

f WHICH PROGRAM W&S LOADED FROMf HIGH BYTE 
fCONf &IM§ THE RfCOS 6QDI 9 

$ ASCII MISSAGIi 





OOiOIS 


04SS3) 


©ooios 




a&SCSI 


<iiMia>/aKE/ 


002070 


008015 


04IIS7 


Q0010S 


MiGSS 


.ASCXE<it><l3>/WCE/ 


002*76 


O0S015 


OSiSOl 


OOOiOS 


MSQll 


.AiezE<ii><ia> /eiE/ 


002104 


oosois 


040S10 


042112 


mmi 


8 &sesi 


«I5>«13>/HARD EROR/ 


002113 


042440 


047SI2 


000122 








002120 


047440 


0201 U 


047S04 


nsosi 


.AMIS/ 


m DQZNO / 


0021 26 


047111 


020107 


000 








002! S3 


127 


044SI2 


042824 


mmi 


•ASCII 


/WRITE/ 


002140 


000 












008141 


iaa 


040B0S 


000104 




•AfCXt 


/READ/ 


oaii4& 


081127 


030134 


044101 


NSOIS 




/NRT CM/ 


0O2H4 


000113 












001186 


042112 


041440 


041110 


msobi 


•Aseic 


/RD CHK/ 


e«3i$4 


000 












OOllSI 


01S 


0404ig 


041SO3 


Msaioi 


•AICZE 


<1B»<13»/AE0RTED/<II»<13» 


002172 


012121 


042101 


00S01I 








002*00 


000 












002901 


US 


041161 


000111 


NBOlil 




/SEEK/ 


0*2*06 


oososs 


041SI8 


9OO07S 


MSGili 


•AfCIE 


<isxi3i»/FeB/ 


003*14 


044120 


0S1B31 


041040 


PSGlli 




/PH¥S RAa/ 
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i 1 70 


n IS *k s& H 

003^33 


3 i S 1 


000 






1171 




ft 1 f 


0470JI 


010117 


MI61 4 S 


117 3 


OOgtlg 


011104 


Oil § tft 


AS Art 4fl 

11*3 V U*« V 




I 1 1 * 


003710 


01 1 §31 


oii 1 1 i 


000 




1174 


00394S 


1 § 


04301 § 


0831 23 

W t il » k » » 


MIQISl 


1 1 7§ 


003962 


030101 


030041 


044804 




1176 


0O39&O 


047104 


083047 


044440 




lilt 


a « *j « & a 


| || || 


OR 1 1 0? 


OSOlU 




i 119 
U '1 


a n 9 « f ^ 
n n * " 7 * 




043101 


0A9I14 

V ffl if 88 ** 




1179 


003 iU « 


0<S0 1 • 4 


000 






1 i 8 


002 10S 


013 


04S41 S 


054305 


MS@1§| 


1181 


002 1 i 2 


nliAfiE 

3403a 


4 U U 


n a < n 4 n 




* ! 




OS 1 5 25 


u « o *j ^ i 


000067 




118 3 


002126 


All A A A 

(J 3 I « "5 U 




047516 


MSG 1 7 ! 


118 4 




nnAAl 5 

Ul'UU / « 






MSGl @ ! 


1185 


002 1 36 


0030 1 □ 


ft & *} ft A A 


n 47*22 


MSGl 9 1 


1186 








0420^0 




f 187 


002*32 


044522 




021440 






002 36 


0000*0 








1 ISO 


002162 




a* 1 l n& 


053J 1 1 


H8G20 1 


ion 

« 


002170 


nnn 1 








1 i 9 ! 


2 1 7 2 


A *1 A AK A 


000 




MSG24 I 


1192 


002175 










1193 


002177 


015 




044522 


MSG28 | 


1194 


002 404 


042526 


11 1 A A A ft 






1 1 95 






053440 


044522 




1196 


0" i 4*0 


047^24 




OSS 1 27 






002 426 


051304 


AC tAAA 


040305 




1198 


0°2 434 


0201 04 




41440 




1199 


002 442 


042523 


AAAAAA 

20 4 


Al A A<& A 




1200 


002 450 




0201 5 


A A AS A A 




1201 


002 4?6 


0425 24 




A9AA4 A 




1202 


002 46 4 




a A A A A A 


020 1 05 




1203 


002472 


000040 








1 20 4 


00247 4 


0050 1 5 


051 104 


0531 1 1 




1 205 


002S02 


020105 


A*J A A A A 


A 9A A A A 

U * U U "B v 






AA1RI A 




A «5 A 1 AS 


A AA AAA 








047502 


052122 


020040 




1 Q 


002^24 


AlAAAA 

1 U 4 




0001 1 6 




i Vc\q 
t its 




U U 3 U i 3 


047125 


QAiiOi 


M3G27 % 


~ 1 . 


U U £ ^ ** ') 




A(]AAA 


0201 17 








aaa i a* 


AAAK Ail 


020122 






00 2*54 






0201 22 




1213 


o <« ~ o I 


aasi n( 

AJlf f «j] 


042524 










04^124 


042522 


020105 




1215 


002576 




04251 1 


000123 




1216 


O02604 


0050 1 5 


05 1 1 OS 


047522 


MSG28 S 






0201 22 


047503 


0421 1 6 




1218 






0475 1 1 


0201 16 




1219 


00 26 26 


046103 


040505 


V 425 2 2 




1220 


002434 


020104 


047117 


053 040 




1221 


002642 


012105 


054522 


021440 




1222 


002650 


0C004O 








1223 


002652 


005015 


044524 


042511 


M8G39I 


1224 


002660 


000040 








1225 













H8G20I .ASCIZ «18><12>/DRIVE/ 



MSG26AI ,A8CIZ «15»<12»/DRIVE SKE ABORT SIN/ 



MSG27I ,ASCIZ <15><12>/UNABl<E tO CLEAR ERROR AFTER THREE TRIES/ 



MSG28 I ASCIZ <Ci5><l3>/ERROR CONDITION CLEARED ON RETRY # / 



M8G39I 9 Aa«| «SlSS»^S2§»/fIMI / 



MD«1 1-DZPKH^, RK11-RK05 PERFORMANCE EXERCISER MACYU 30(1046) 06-JUN»77 14|S5 PAGE if 

DZPKHG.P1 1 25«APR"77 101 IS COMMON TAGI 

1 226 002A62 040 BLNK83 1 « ASCII / / 

1227 O02fi63 040 BLNK82 I • ASCII / / 

1228 002864 000040 8LNK81 I .ASCIZ / / 

1229 eEVEN 



MD-! l-UlP*Hfl, RKU»SKOS PfcHFORMANCE EXEPCIOER M *CY1 1 30( 1046) OI-JUN-77 14 1 SI PAGS || 
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H30 ,I*BTTL LRROH POINTER TASLI 

|»THII TABLE CONTAINS THE INFORMATION FOR EACH ERROR MAT CAN OCCUR, 
«23S f*THI INFORMATION 18 OBTAINED SY USING THE INDEX NUMBER FOUND IN 

13)4 |#L0CATI0N g|f£Ml 3 THIS NUMISP INDICATES WHICH XTEH IN fHl TAiLI IS KPTI NINf s 

oil f#NOflli IF SlflMS IS fHl ONLY PERfSNgN? dhth fi (|ERRPC)« 

1216 |»N0TE3l IAgH ITEM IN THI TASLi CQNf&f N§ 4 POINTERS EXPLAINED AS FULLOWIl 

lip i» em u points to ?hs error miisags 

1919 |« BH | f POINTS TO THIS 0ATA HIASlfl 

Jg4 fi j# OT 1 1 POINT! TO fHl BAM 

1741 f# DF | | POINT! TO fHl ®hth FORMAT 

1943 

1249 

1244 003666 $SSSftfS§ 

. f#THSRE ARB TWO CLASSif OF ERRORS I 

1246 |*i 9 ERROR! IN EXERCISER PART OF THI PROGRAM ■ ERROR NUMBERS SELON 100 

1247 ERRORS IN THS NON-EXERCISER PART Of THE PROORAM • CRROR NUNIIR! EQUAL 

1248 |»TO AND GREATER THAN 100, 

124® |»THI DOCUMENT CONTAIN! MORE SNF8RMAT ION ON THCIC, 

m Q j#THE FOLLOWING ERRORS OCCUR IN fHl EXERCISER PART OF fHl PfSOGISAM® 

1251 

1282 

13S1 l«BN 1 

12§§ 00341* 027631 SMS | ERROR OH MRITB 

12S6 002870 0317JO DH1 |PC RKCS PEER- HKDI RKDA 

12B7 002672 032422 DTI ilERRPC IREOO IRBOi IRE03 IREOI 

1258 002674 000000 
1259 

1260 | ITEM 2 
1261 

1262 002676 027650 EM2 | ATTEMPT TO INITIATE FUNCTION ON *§US¥* DRIVE 

1261 002700 031776 DH2 I PC DRIVE 

1264 002702 032436 DT2 | IERRPC IREOO 

1265 002704 000000 
1266 

1267 I ITEM 3 

126B 

126 9 002706 027723 EMl | CONTROL READY NOT Iff 

1270 002710 031730 DH1 f PC RKCS RKER RXDfl RKDA 

1271 002712 032422 DTi |IERRPG IREOO SR&Gi !REG3 IREOI 

1272 002714 000000 

1373 

1274 | ITEM 4 

1776 002716 027746 EM4 |R/M/S READY NOT SIT 

1277 002720 011730 DH1 |PC RXC! RKER RKD! RKDA 

1278 002722 032422 DTi IlERRPC §ft§Q@ SRCOi $R1QI |RE01 

1279 002724 000000 

1280 

1 2ft 1 I ITEM 8 

1 292 

1283 002726 027771 |M§ {CONTROL RI&BY H8f SET AFTER FIRST INTERRUPT 9M IUUINO IBEX 

1284 002710 031730 DH| |PC RKCB RKER RKD8 RKDA 

1285 002732 032411 Dfi IlERRPC IREOO IREOi IRE03 IREOS 



MD-11-D«RKH(J # RRU»RKOB PiRFOBMINgi EXERCISER 
DZRKHG.Pll %$®kpnm11 |@S Si IRROR POI 



TABLE 



I 19(16413 0!<m!UNo77 I4|SS P&G1 II 



12S6 
1207 

128® 
1289 
1290 
1291 
1292 
1293 
1294 
1246 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1103 
1104 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1313 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1 125 
1326 
1327 
1328 
1329 
1330 
1331 

1132 

1333 
1334 
1333 
1336 

1337 
1338 
1339 
1340 
1341 



0027J4 000000 



002736 
002740 

001741 
003744 



003746 
002750 
002752 

0027S4 



002716 
002760 
002762 
002764 



0027S6 
002770 
002772 

002774 



002776 
003000 
003002 
O03O04 



003006 
003010 
003012 

O03al4 



003*16 
001r>20 
0O3n22 
003024 



OOlofS 
003030 



030081 
031730 
012422 
000000 



0301 15 
011776 

03241I 
000000 



030162 
0S1776 

031436 

oooooo 



030237 
031730 
032423 
OOOOOO 



030317 
031730 

033432 
OOOOOO 



030371 
031730 
032422 

OOOOOO 



030444 
011730 

032422 
OOOOOO 



O30SS7 
031730 



f ITEM 



I ITEM 



f ITBN 



f ITEM 



DH1 
DTi 




1M7 
DH8 
DT2 



10 

emio 

DH3 
DT3 

O 

11 

EMU 

DHS 
DTI 





I ITEM If 



EMi2 

DH1 
DTI 





I ITEM il 



EMU 

DH1 
DTI 





I ITEM 14 



EMi4 

DH1 
DTI 





fITEM IS 



$mm® iits m mm s expect seek 

m mm mm mm mm 

§R§@§ 



f IERRPC 



IRBOi 



$mm irsoi 



EM1S 
DH1 



t'BOSV FLAG clear m interrupting drive 

IPC DRIVE 

isbrrpc $mm 



i'poeitxonino' plao p.or xntbrruptino drivb clear 
ipc brsvi 
jibrbpc srcoo 



I'SRR'OR SET AFTER PIRST INTERRUPT ON 1§§USNG SEK 

ipc nm§ mm mm rxda 

IlERRPC IREOO IREOi IRB02 SRSGS 



|SCP Mf APTBR FIRST INTERRUPT Off ISSUXNO MM 

iPc f*K€§ mm mm mm 
tmrnwc mm® mm% sRssa ireoi 



fCOHfPOL RIADY NOT iff AFTER SEEK D0M1 INTERRUPT 
|PC Rf?C§ RKER RKDB IKDA 

IlERRPC ®P!iO0 IREOi $RE@i tREOS 



f iNf OiUPf Iffd DRIVE (SEEK DONS J WA§ NOT 
IPC mc$ RKBR RKDS MDA 

IlERRPC IREOO IREOi IREG2 S«S3 



|R/*/S BEADY MOT SET FOR INTERRUPTING DRIVE CSESK 90NEJ 
I PC RKCS BKSU RS«DS RKD& 



MD-1 1-DZPKH*, PK1 1-PK05 PERFORMANCE EXERCISES MACYU 30( 1 046) 06-JUN-77 1 4 1 55 PAGE JO 
DZPKHG.P1 1 2?.6PR»77 101 I e ERROR POINTER TABLE 



1342 
1343 
1 344 
1345 

1 346 
1347 
1348 
1349 

13S0 

list 

1 352 
13S3 
1354 
I3SS 
1356 
1357 
13S8 
1359 
1360 
1361 
1362 
1363 
1364 
i 36S 
1366 
1367 
1368 
136 9 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1 380 
1381 
1382 
1383 
1384 
1385 
1386 
1 387 
1 368 
1 389 
1 390 
1391 
1392 
1391 
1394 
1395 
1 396 
1397 



003*32 

003*34 



003036 

003040 
003*42 
003*44 



003*46 
003*50 
003*52 

0O3OS4 



003oS$ 
003*60 
003062 
003*64 



0O3«§6 
003*70 



003*72 
003*74 



003*76 
003100 



U03l 02 
0031 04 



0031 06 
0031 10 
0031 12 
0*31 1 4 



0031 16 
003120 
003122 

0031 24 



032422 

(ii)OOOO 



030603 
031730 
032422 

oooooo 



030614 
031730 
032422 

OOOOOO 



030642 
031730 
032422 

OOOOOO 



030706 
032013 



032444 
OOOOOO 



OOOOOO 
032013 



032444 

OOOOOO 



030720 
0321 10 
032422 

oooooo 



030747 
031730 
032422 

OOOOOO 



DTI 





SIMM 16 



EM16 

DH| 
DTI 


17 

EM17 
DH1 

DTI 




f SEPPPC IREGO 8PEGI IREG2 IREG3 



f ITEM 



I ITCH 20 



I ITEM 



% ITEM 



EM20 
DH1 

DTi 




I ITEM 21 



EM21 
DH21 

DT21 



32 


DH21 
DT21 



23 

EM23 
DH23 
DTI 





i ITEM 24 



EM24 
DHS 

DTI 




j 'SIN* ERROR 
J PC RKCS 
I IERRPC IREGO 



RKER 
IREGI 



I 'ERR'OR ON DOING SEEK 
I PC RKCS RKER 

HERRPC IREGO IREGI 



RKD8 
IREG2 



RKDS 
• RC02 



RKDA 
IREG3 



RKDA 

IREGI 



ISCP DID NOT SIT AFTSR SIEK Mi DONE 

i pc mc& mm rxds rkda 

HERRPC gREGO $REG| SRE63 $REGi 



I SOFT ERROR 

HERRPC RKCS 
|CYL 6UR 
HERRPC IREGO 
HREG4 IREG5 



HERRPC RKCS 

fCYL SUR 

HERRPC IREGO 

HRE04 SREGS 



RK0S 



IREGI 

SRIGS 



RKER 

SEC 
IREGI 

I REGS 



IREGI 



IRIOI 



I DATA (COMPARISON} ERROR 

j PC RKBA EXPCT RECVD 

HERRPC IREGO IREGI $REG2 



RKDA 

$R1GS 



fCONTROL READY CLEAR ON INTERRUPT AFTER RK FUNCTION 
f PC RKCS RKER RKDS RKDA 

HERRPC IREGO SREGS IREG2 IREGI 



MD«»tl™DSP K HC. 
DZRKHG.Pl 1 



RKH-RK05 PERFORMANCE EXERCISER MACYU 30(1046) 
25-APR-77 10118 ERROR POINTER TABLE 



QS»ilUH»1? 14ISS PAGE 31 



1 398 

1399 

1400 

1401 

1402 

1403 

1404 

1 405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

141P 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

143S 

143S 

1437 

1438 

1439 

1440 

1441 

1442 

1443 



003i 26 
0031 30 
0031 32 
0031 34 



003136 
0031 40 
003142 
0031 44 



003146 
003150 
003152 
003154 



003i56 
003160 
003162 
003164 



OOOOOO 
032155 
032466 

OOOOOO 



031023 
031730 
032422 

oooooo 



031076 
032232 
032504 
OOOOOO 



031137 

012313 
032436 
OOOOOO 



003166 031232 

003170 031776 

003172 032436 

0031 74 OOOOOO 



003176 031323 

003900 032265 

003902 032504 

003904 OOOOOO 



003906 031355 
Q03?tO 032265 



1444 003712 032504 

1445 003914 OOOOOO 

1446 
1447 

1448 

1449 003916 031432 

1450 003920 031730 

1451 003922 032422 

1452 003924 OOOOOO 

1453 



f ITEM 2S 





DH2S 
DT2S 




plTEM 



I ITEM 



IPC RKCS 

HERRPC IREGO 



SREGi 



RKDS 

$REG2 



RKDA 

IRIG3 



DRIVS t 
$REG<§ 



I ITEM 2S 



gM2§ 
DHl 

DTi 


21 



DH27 
DT103 





? ITEM 30 



EMJO 
DH30 
DT2 





t ITEM II 



SM31 

DH2 

DT2 



32 

EMia 

DH103 

DT103 





? ITEM 33 



EM33 
DH103 



DT103 





$ ITEM 34 



EM34 

DHl 

DTI 





{STUCK IN IiOQf?* S @<OMMANQI SHOULD SI DONE BY ®0® 
?PC RKCS RKER RKDS RKDA 
H1RRPC $RM0 IREGI SRSG1 IRS63 



I ATTEMPT TO DO WRITE CHECK lEFORg URSfl 
IPC KEY FUNCTION CODE 

IPC IREGO IREGI 



I ATTSMPf TO ElMICUfl 
I PC K1Y 

herrpc tRiGo 



eOMMAMD IN PROORCaa 01 ALREADY FINISHED 



I 'FUNCTION IN PROGRESS' FLAG FOR INTERRUPTING DRIVE IS NOT SIT 
I PC DRIVE 
HERRPC IREGO 



S UNEXPECTED DRIVE INTERRUPTED 
IPC EXPCT RECVD 

HERRPC SREGO ®REGi 



I WRONG FUNCTION CODE IN RKCS AFTER 
fPC EXPCT RECVD 

HERRPC SR160 IREGI 



fDRIVC READY CLEAR 

f PC RKCS RKER RKDS RKDA 

HERRPC IREGO SREGl |REG2 IREGI 



D2PI 



J»DZP K H^, pxj i «RKOS PERFORMANCE EXLPCI3EP MACYil 30(1046) 06»JUN«77 14|S5 PAGE 32 
HG.P1 1 25»APR-77 101 IP ERROR pOIKfFP T&BLE 



003926 

003"?3n 

003914 



003936 

003940 
003^42 

003944 



003946 
003950 
003952 

0039S4 



(-31 451 
031730 

012422 
000000 



031467 
031730 

033422 
000000 



011303 
031730 
032422 

000000 



3S 

PHI 
DTI 


f ITEM 36 

mu 

DHi 

DTI 


I ITEM 37 



EM37 

DHI 

DTI 




j DRIVE POWER LOW 

f PC RKCS RKER 

IIERRPC tREGO 8 PEG1 



jDRXVE UNSAFE 

i pc rkcs 
iserrpc srigo 



fMPf «T 

I PC RKCS 

f$lRRP£ $RI@0 



BRER 

SREG1 



RR1P 
IPSGi 



RKDS 
IRSG2 



rkds 



RKDS 



RKD A 
IPEG3 



SREG3 



SR1S3 



l*THE FOLLOWING 



ERRORS OCCUR IN THg NON-EXERCISER PART Of THE PROGRAM* 



003956 
003260 
003962 

0039S4 



003966 
00.1970 
003972 
003974 



030720 
0321 10 
012422 

oooooo 



031513 
031730 
032422 

oooooo 



I ITEM 100 

EM2I 
DH23 
DTI 



I ITEM 10i 

EMIOi 

DHI 

DTI 





| DATA (COMPARISON) ERROR 

I PC RKSA EXPCT RECVD RKDA 

iierrpc sRses mm% $mm sregi 



I INTERRUPT DID NOT OCCUR AFTER WRITE 
I PC RKCS RKER RKDS RKDA 

IIERRPC IREGO SREGS SREGg J REGS 



003976 

003100 
003 <02 
00H04 



003 «Q6 
003110 

Q0H12 
003H4 



0315S3 
011730 

032422 

oooooo 



031567 
032265 

033304 
OOOOOO 



I ITEM ioa 

EMioa 

DHI 
DTI 



I ITEM 103 

EM103 

DK10S 
DT103 




f ITEM 



003H ft 031613 



$04 
EMI04 



f*BRR*QR SIT 
fPC RKCS 

flERRPC SRE60 



RKER 

$RiG| 



RKDS 
IRE62 



RKDA 

HREG3 



jPC 1XPCT RECVD 

iierrpc sriqo mm 



$mm INCREMENTED UROMfliT 



MD-il-DERKHrt, RKu«RKO| PERFORMANCE SXIRCX8ER RACYH 30(1044) 0I»JUN«77 HiSS PAOE II 
DZPKHG.Pi 1 35-APP-7? 101 tl ERROR PSINfgR TABLE 



1510 

1911 
1512 
1511 

1514 
1515 
1516 
1517 
ISIS 
1519 
1520 
1521 

naa 

1523 

1524 
1923 
H2S 
1527 
til® 
1939 
1510 
1511 
1531 
1133 
1114 
1535 
1«S36 
153? 
3S3S3 
1519 
1S40 



003130 
003124 



coins 

003130 
003132 
003114 



003136 
003140 

00.1142 
0*3144 



003^48 
0031B0 
01H52 
0SJ154 



00SU6 

003160 
003162 

003H4 



01S33S 
O32S04 
OOOOOO 



031643 
03233? 
032504 
OOOOOO 



031673 
011730 
033431 
OOOOOO 



030130 
0123*1 

0!«O4 

oooooo 



Oil? i 2 
03S3S4 
012422 
OOOOOO 



DHI03 
0TIO3 


I ITEM $01 

EMIOI 
DM101 

DTIOi 


fITEM SOI 

EM&OI 

DHi 
DTI 



I ITEM 107 

EMU 

QH101 
0T10I 
© 

I ITEM S 10 

EMI 10 

DH4S0 

DTI 





IPC 1XPCT 

iierrpc ireqo 



RECVD 
IRE01 



IRKNC DID NOT OVERFLOW TO 9 
fPC MM mm 
IIERRPC IREOO IRE01 



|MEX Iff® INCORRECT 

* pc RKCS mm mm 

IIERRPC IREOO $«§£ IREOI 



ioam tmwhmmm mmn m 

m IXPCT RECVD 
IIERRPC SR1@@ gPflfli 



I WRITE CHECK ERROR 

$k mm mm rkia 

IIERRPC IREOO IREOI IRI02 



RKDA 



RKDA 

•reoi 



MD-1 1 -DZRK H r:, 
DZPKHG.P1 I 



RK11-PKU5 PEPFORMANCF EXEBCISFP MACY1 1 30(1046) 
25-APP-77 1 1 1 1 8 ERROR POINTER TABLE 



06»JUN*»77 HiSS PAGE 34 



15 41 










15 4 2 










1543 


003166 


004737 


0226 30 




15 4 4 


0J172 


105237 


001253 




15 45 










15 46 










« k !a 




















* * ft 












00 3 


000005 






!eb \ 










15 5 2 


003 400 


02373" 


000042 


000046 




003 406 


001016 






1 55 4 




005077 


1 756 1 4 




1 555 


001414 


0127 00 


000250 






003 420 


032777 


000200 


1755*0 


1 557 


nn* ft 


n ft $ ft ft & 






S Sifl 


003 430 


005001 








00 3 4 3 2 


005 301 






1560 


no \ t%t 


001 376 






1561 




003300 






1562 


* !!! 


001 367 






156 3 




000000 






1564 


rtft* AAA 


















< 










1567 


003 444 


01 2706 


OOi 100 




1 §69 




005026 






156 3 


f ; , 2 


022706 


001140 




*9?? 


00 3 456 


001374 








001460 


0127 06 


00 1 1 00 




15 7 2 










15 7 3 




0127 37 


027204 


000020 


!cIk 




012737 


000340 


000032 


15 75 


O0350O 


012737 


027350 


000034 


1576 


003506 


012737 


000340 


000036 


15 7 7 


00 351 4 


012737 


027450 


000024 


1 5 7 8 




0127 37 


000340 


000026 


15 7 9 




(i * \ -j \ 1 


0035 30 


00 1 1 06 


158 




012 7 3 7 


0035 36 


00 1 i 1 


1 5 8 i 










|sjg2 










^KQ 4 


3*544 


01 3746 


000004 






003550 


012737 


003604 


000004 


1585 




0127 37 


177570 


001 140 


1536 




012737 


1 77S70 


001142 


15 8 7 


003572 


022777 


177777 


175340 


t 5 8 8 


00 38 00 


10 12 






i «!! 












003602 


00 40 3 






1591 




012716 


003612 




1592 


3 610 


000002 






1593 


003612 


01 27 3 7 


000176 


001140 


1594 


003S20 


012737 


000174 


001142 


1595 


003*26 


012637 


000004 




1596 











?£F POWLF* FA I LEI") , QH PtTUPN OF POWER ENTER HERE „ 



PFSTRTi JSR 
INCB 



PC,WATIME f WAIT SOME TIME 

FRSTPT I INDICATE THAT THE STATISTICS HAVE 

?T0 BE SAVED, DN PETRN FROM PWR FAIL 9 



RESET 




DRIVES 


TIME TO LOAD 


CMP 


§#42##®46 


BNE 


STARTA 


CLR 


IRKDA 


MOV 


#2S0»R0 


BIT 


#200* iRKDS 


BNE 


STARTA 


CLR 


Rl 


DEC 


Rl 


BNE 


8 «*2 


DEC 


RO 


BNE 


20$ 


HALT 





STARTi RESET ; CLEAR THE BUS 

PROGRAM W&g STARTED BY APT 

; SELECT UNIT 
— - I WAIT FOR., 

20SI BIT #200*iRKDS f DRIVE READY 8 s 

J IN CASE.. 

ror APT g 8 

I START, BUT.. 

; DON'T WAIT 69 
; FOREVER , 

8XABTA| " fmDB BIT 1 (DRIVE READY) NEVIR SEf 8 

9 SBTTL INITIALIZE THE COMMON TAGS 
I jCLEAR THE COMMON TAGS ( 8CMTAG) AREA 

•ICMTAG,R8 ||FIR8T LOCATION TO BE CLEARED 

CR6H J f CLEAR MEMORY LOCATION 

#SWR,R6 1 j DONE? 

#STACK # SP 
FEW VECTORS 

t88C0PE,»#I0TVEC fflOT VECfOR FOR SCON ROUTINE 

#340*f#I0TV£C*2 n LEVEL 1 

#$TRAP,e»TRAPVEC || TRAP VECTOR FOR TRAP CALLS 
8340 »S#TRAPVEC+2T LEVEL 7 
»8PWRDN,9#PWRVEC f» POWER FAILURE- VECTOR 
«340,PiPWRYEC«2 ; | LEVEL 7 

* e # 8LPADR 1 1 INITIALIZE THE LOOP ADDRESS FOR SCOPE 

^ ■ , ... * ,,, £ PERR MSETUP THE ERROR LOOP ADDRESS 

If SIZE FOP A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
I 1 EQUAL TO A »»1", SETUP FOR A SOFTWARE SWITCH REGISTER, 

I J SAVE ERROR VECTOR 

I I SET UP ERROR VECTOR 

ff SETUP FOR A HARDWARE SWICH REGISTER 
HAND A HARDWARE DISPLAY REGISTER 
II TRY TO REFERENCE HARDWARE 8WR 
1 1 BRANCH IF NO TIMEOUT TRAP OCCURRED 
HAND THE HARDWARE SWR IS NOT * »1 
ff BRANCH IF NO TIMEOUT 
J I SET UP FOR TRAP RETURN 



MOV 
CLR 
CMP 
BNE 
MOV 

I I INITIALIZE A 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



1 1 LOOP BACK IF NO 

1 1 SETUP THE STACK POINTER 



MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



64SI 
6SS8 
6Slf 



BR 
MOV 
RTI 

MOV 

MOV 
MOV 



&«ERRVEC,-(SP) 
*64*#*KERRVEC 
*D8WR,SWR 
*DDISP, DISPLAY 

••i#fswp 

86| 
65| 

CSP) 

f 8NREG,8taR 

8DISPREG, DISPLAY 

CSP)* S ##ERRVEC 



If POINT TO SOFTWARE SWR 
M RESTORE ERROR VECTOR 



MD«> 1 1 «DZR^Hcif RKH«.R5<0S PFRFQRMANCE EXERCISER MACY11 30(1046) 0#s*.JUN**?? IttSS PAGE IS 
DZRKHG.Pl 1 25»APR»77 1 1 1 8 INITIALIZE THE COMMON TAGS 



1597 


003632 


023737 


000042 




003640 


001416 




1599 








1*00 








1601 


003842 


O05227 


177777 


1602 


003§46 


001032 




1603 


O03650 


104401 


003706 


1604 








160S 


003*54 


00S737 


000042 


1606 


0O3A60 


001006 




1607 


003662 


023727 


001140 


1408 


003*70 


0O1O05 




1609 


003872 


104406 




1610 


003674 


000403 




1611 


003676 


1 12737 


000001 


1612 


003704 






1613 


001704 


000433 




1614 








1618 


003774 






1616 


003774 


012737 


036206 


1617 


004n02 


013737 


001244 


1618 


004*10 


012737 


022552 


1619 


0O4dl6 


013737 


001246 


1620 








1621 








1622 








1623 








1624 








162S 


004n24 


005037 


002060 


1626 


004030 


122737 


000002 


1627 


004r»36 


001160 




1628 


004n40 


013737 


000040 


1629 








1630 


004«46 


122737 


000010 


1631 


004*54 


101002 




1632 


004ft56 


105037 


002060 


1633 


004n62 


005737 


000042 


1634 


004a66 


001424 




1635 


004O70 


104401 


004076 


1636 


004*74 


000413 




1637 








1638 


004124 






1639 


004124 


005046 




1640 


0041 26 


113716 


002060 


1641 


0041 32 


104403 




1642 


0041 34 


001 




1643 


0041 35 


000 




1644 


004136 


000520 




1645 


0041 40 


OOS227 


177777 


1646 


004144 


OOU 15 




1647 


0041 46 


104401 


004154 


1649 


004132 


00041 1 




1649 








1650 


004176 






1651 


0041 76 


005046 




1652 


004900 


113716 


002060 



000046 



CMP |#4S?II46 
BEO 69| 
g SBTTL TYPE PROGRAM NAME 

I I TYPE THE NAME OF THE PROGRAM If FIRST PASS 



9 SSTTL 



f ARE m IN ACTtl AUTOMATIC MODI? 
JYS8* SKIP TITLE PRINTOUf 



000176 



001134 



000030 
000031 
000100 

000102 



000041 
002060 
002060 



Sf If 
70SI 



H«Ml 

67SI 



INC 


#n 


J f FIRST TIME! 


BNE 


671 


| f BRANCH IF NO 


TYPE 


,698 


llTYPE ASCII STRING 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


T8T 


• #43 


II ARE WE RUNNING UNDIR XXOf/AGTT 


BNE 




1 1 BRANCH If YES 


CMP 


awiMswRiG 


I i SOFTWARE SWIWH RIG SELECTED* 


BNE 


70$ 


1 1 BRANCH IF NO 


GT8WR 




1 J GET §OPf*»§WR SETTINGS 


BR 


?os 




MOVB 


#i,SAUfOi 


IS SET AUfO^MSDI TOfC&fOR 


BR 


67| 


1 1 GET OVER THE ASCII 



• A8CIZ ^CRLF§>#RK| l/RKOl PSRFQRM&NSf EXERCISER«<1S»413>»NAINDEC«1 &«DERKH-Q»<CRLP 



MOV 
MOV 

MOV 

MOV 



8SIRR0R,i#iMTVEC 
PRRLVLr ltEMTVEC^2 

«waRVg,|#KWLVSe 
KWPLVL,»#KWLVEC*3 



fEMT VECTOR F5SI ERROR ROUTINE 
I LEVEL i 

iKWUL CLQgf? SIRVICS 
ILIV&L 7 



I THE FOLLOWING CODE FINDS OUf THE PROGRAM CONTROL MODES 
I PAPER TAPE (MANUAL) t ACT11, RKDP CHAIN OR DUMP 



1 172® ? 
7111 



9 I 749 t 

731? 



CLR 


XXDPMD 


I CLEAR 'XXDP' LOAD DEVICE 


CMPB 


#2,41 


1 LOADED FROM AN RK05 ? 


BNE 


ST2 


; BR IF NOT 


MOV 


40,XXDPMD 


I GET DEVICE INDICATOR AND 






I LOADING RK09 


CMPB 


#10,XXDPMD 


IVALID DRIVE ADDREHS f 


BHI 


as 


P BR IF YES 


CLRB 


XXDPMD 


ICHANGE TO DRIVE ZERO 


TST 


42 


f CHAIN MODI OR ACTJi AUfO 


BEG 


3S 


I BR IF NEITHER 


TYPE 


*7S$ 


1 I TYPE ASCIZ STRING 


BR 


711 


HGET OVER THE ASCII 


.ASCII 




TESTING DRIVE / 


CLR 




iCLZAR WORD ON STACK 


MOVB 


XXDPMD, CSP3 


1 GET DRIVE ADDRESS 


TYPOS 




I TYPE THE ADDRESS 


S BYTE 


1 


j ONLY 1 CHARACTER 


sBYTE 





pSUPRESS LEADING ZEROS 


BR 


ST2 


I GET NUMBER OF DRIVES 


INC 




fFSRST TIME THROUGH HIRE t 


BNE 


5T2 


f BR IF NOT 


TYPE 


f 748 


1 1 Type asciz string 


BR 


73S 


M GET OVER THE ASCIZ 


a ASCIE 


<15>«12>/T0 


TEST DRIVE / 


CLR 


-(8P) 


I CLEAR WORD ON THE STACK 


MOVB 


XXDPMD, CSP) 


i'.3ET DRIVE ADDRESS 
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1653 


004^04 


104403 






TYPOI 




iTYPt THE DRIVE ADDRESS 


16S4 


004^06 


001 






.BYTE 


1 


1 ONLY 1 CHARACTER 


1SS5 


0(14907 


000 






.BYTE 





fSUPRESS LEADING ZEROS 


1656 


O04M 


] 04401 


0042l« 




TYPE 


»?SS 


1 1 TYPE A8CZS STRING 


1657 


004914 


000431 






BR 


7Sg 


} I GET OVER THE A8CXZ 


I6sa 








> 1760 1 


9 ASC» 


/ HALT PROGRAM* 


REMOVE RRDf» PACK &HD REPLACE IT/«1! 


1639 


004100 






7SSI 








1360 


004*<00 


104401 


004306 




TYPE 


,78$ 


! J TYPE ASCXE STRING 


1661 


004^04 


0004J5 






BR 


77| 


1 f GET OVER THE AfCXl 


1662 








If 7SSS 


9 ASCII 


/with h mm p&etc* cum location 40 , and ssistam 1 


1361 


004A0O 






77$! 








1634 
















1665 
















1666 
















1667 


004400 


10441S 




ifll 


C0N 9 Rf§IT 




1668 


004402 


005037 


001234 




CLR 


MWM 


fPIND WHICH MfVI # ? i hM PflffBBNT 


1669 


004406 


003000 






CLR 


RO 




1670 


004410 


005002 






CLR 


m 




1671 


004412 


003037 


001214 




clr 


pm 


fCLI&H DR1V1S MfSSNT fAiLl 


1672 


004416 


OOS037 


ooiasi 




CLR 


PDSt*S 




1673 


004422 


003037 


001230 




CLR 


PDR*4 




1674 


004426 


0OS037 


001232 




CLR 


PDR*§ 




1675 


004432 


012701 


0OS3S4 




MOV 


#P0»#Ri 




iiV?fe 


004436 


012703 


00130I 




HOV 


•KCYiRI 




1677 


004442 


010277 


174562 


III 


MOV 


R2f tRKDA 


fSELSCST h MSVi 


167§ 


004443 


032777 


000200 


I74S43 


SIT 


920O?$RSC3§ 


|li IT IN §Y#TM? 


1679 


004494 


Q0141S 








31 


|N0 


1680 


004456 


01 0237 


001302 




NOV 


M*§DRV 


f LOAD DRIVI ADBRI§§ IWfO §DSSV 


1681 


004462 


104420 








|RJSET TM1 DRIVI 


16M 


004434 


005737 


002030 




TST 


XXDfW 


y PROGRAM LOADED PROM AH EK0S f 


|6|3 


004 170 


001 403 






BS6 


3$ 


|§R If NOT 


1684 


004472 


1 20037 


002030 




CNPB 


R6; KKDPM0 


(LOADED FROM THIS M0§ f 


1381 


004476 


001404 






§g® 


3$ 


?§R If ¥B§ 


1*86 


004500 


110021 




1$S 


MOVi 


R0# Cftl)* 


f O * WHfc JrlM y J* A was n U rn BS la yi 


1687 


004502 


010223 






MOV 


RBrC*D* 


1 STORE ADDgESI SN KEY TAILS 


1688 


004104 


005237 


001234 




INC 




j SUMP fHl UUNSM Of DRSVM COUNffBIt 


1 68© 


004510 


062702 


020000 


III 


ADD 


#§0000#M 


}NIKT DRIVE ADDRISi 


1690 


004*114 


005200 






XNC 


RO 


fNIXT DRSVI MUMSIR 


1691 


004116 


022700 


000010 




CMP 




iDONI ALL BRSVfifff 


] 693 


004522 


001347 






SHS 


IS 


;L0OP TILL DON! 


1693 


004124 


013703 


001234 




MOV 


ORVBRB* R) 


f FIND WHICH DRIVIft AW TYBB f 


1694 


004530 


001510 






ICQ 


§T4 


|BR IP HOT gmXVIf PRESENT 


1693 


004532 


012701 


00I2S4 




MOV 


#P0R#Rt 




1696 


0045 36 


005000 






6LR 


R0 




1*9? 


004540 


005002 






CLR 


RS 




1698 


004542 


1 04401 


002332 




TYPE 


»M|GS§ 




1699 


004543 


111102 




41 S 


HOVS 


mum 


p©it dpi vi mmm 


1 700 


0O4«*5O 


01 0200 






MOV 


R3,R0 




1701 


004552 


002 47 2 






iLT 


IS 




1702 
















1703 


0049S4 


104401 


002373 




TYPE 






17(14 
1705 


004560 


010243 






MOV 






1706 


004562 


104403 






fYPOi 






1707 


004*134 


001 






9 §Yfl 


1 




1 708 


00418S 


000 






,BVTB 








MD-UOZRKHfl, RK11-RK08 PEBfORMANeE IXEMIfBR HA€Yii i§Ci04§! 0I«JUH»T7 |4§!§ 
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fhm if 



02SKHG« 


Pll 28 




101 tS 


1709 


004566 


000241 




1710 


004570 


003002 




1711 


004972 


003002 




1712 


004174 


006002 




1711 


004S76 


006002 




1714 


004600 


042702 


017717 


1715 








1716 


004604 


010237 


®0I§0! 


1717 


004610 


104420 




f 71S 








1719 


004S1I 


031701 


020000 


1720 


004616 


001001 




1721 








1?M 


0O4W 


O52702 


030000 


1133 


0P4Sa4 


000401 




1724 








I72S 


004323 


04I7OI 


020000 


1723 








5 727 


004632 


010277 


174311 


1728 


004333 


032777 


000300 


1729 


004*144 


001420 




1710 








1731 


004343 


011777 


000011 


173S 


O043S4 


I044S7 




1731 


004653 


032777 


000100 


I7S4 


004^34 


001010 




173S 








1716 


004333 


132711 


000300 


1737 


004A72 


S04401 


0OII7I 


171S 








1739 


004673 


032777 


000100 


1740 


004«?O4 


001774 




nit 








1741 


O0410S 


I0I7S7 


001MI 


1743 


004712 


001013 




1744 








174S 


004714 


031717 


O0000I 


1741 


004712 


001403 




1747 








1741 


004724 


104401 


ooiiis 


I74f 


004730 


104413 




1750 


004732 


003300 




17S1 


004714 


oiasso 


ooiass 


1752 








1753 


004740 


003201 




17S4 


004742 


005303 




17SS 


004144 


003300 




I7S3 


0O4f4S 


SO4401 


001213 



Sis 



s$i 



fSl 



CLC 




ROR 


m 


ROR 


m 


mn 


m 


RQR 


m 


Sl€ 


#iffff#M 


MOV 




0RV t IIBf8T 


BIT 




INI 


1$ 


iia 


#§0@©0$HS 


SR 


IS 


BIC 


I30000;R3 


MOV 


m § $mm 


SIT 


9i00;iHKSS 


il@ 


i$ 


MOV 




CON.ftB-y 




Slf 




EMI 


11 


Slil 


@iO0? cny 


nn 




ilf 




IIS 


7B 


fiis 


FiSTif 


mt 


i$ 


SIT 






IS 


nm 




RDDie 




ASL 


RO 


MOV 




XNC 




DEC 


R3 


BOT 


41 


TYPi 


# sew 



i^ovg d«svi Humm w sift s§#i4*u 
lis?© to chmt 

flSTO TO iSTIi 
fBXTO TO SST44 
f BXTO TO ISTil 

icliar amy mmmmm iifs 



IPIKT THB DWVl VIA 9SBV 



nviM mm ummmn 
ino » a,m in 

$mm it am mn mm 



fWI St AH 1V1M DRIVI 

isiLigf thb um mm 

t make mm mm u in iystih 

fSf ?f0f # BRIB WIS TISf 

isfAsiT a mm to cyl 

I WAIT rOH e0HTR0LL§g» 
fit ST lU MSfSONfff 

ims « a mt dpsvi 

l¥Ii ® fit VHC t mt SIT 



fNAXT fQP TO If Of 



fSIRSAIs m 8 BW Slff 
I NO 

»TYBI ^Si ^6" 

tBEBD FROM TTY IMPUT 

I SAVE flRX^L HQ fOg THB DRSVI 
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1757 
1758 
1759 
1760 
I 76 t 
1762 
1763 
1764 
1765 
1766 
5 767 
1768 
1769 
1770 
1771 
1772 
1771 



I 'MAXBA' TS THE HIGHEST BUS ADDRESS (MEMORY) TO WHICH DATA TRANSFER! CAN 
I BE DONE SY THE PROGRAM, 

I 'MAXBA * IS FIGURED USING THE FOLLOWING ALGORITHM! 
I 1 , IF KTli IS NOT PRESENT, 

I A, AND THE PROGRAM IS RUN UNDER XXDP, THEN THE TOP l t 5 K IS RESERVED 
I AND THE 'MAXBA * IS COMPUTED ( SLSTAD-6000 ) , 

jB, AND THE PROGRAM IS NOT RUNNING UNDER XXDP, THEN THE TOP 320 WORDS 

j ARE RESERVED FOR 'MOM* , LOADER, ETC » AND THE 'MAXBA' IS COMPUTED < ILSTAD«SOO ) , 

|2 8 IF KTli IS PRESENT, 

|A 9 AND MORE THAN 2IK MEMORY IS PRESENT, THgN THE MAXIMUM SUS ADDRESS 
|XS 147776 (OCTAL) . 

|B a AND LESS THAN 28K IS PRISINT, THEN fiff TOP |K Si RESERVED FOR RKDP 

I MONITOR AND 'MAXBA' IS COMPUTED, 

I FIGURE OUT THE AVAILABLE MEMORY AND "MAXBA" 



1774 


004752 


004737 


017466 


ST4 S 


J8R 


pc,$§ik 


)G0 SIZE THE MEMORY 


1775 


004756 


012702 


002052 




MOV 






1776 


004762 


012703 


002054 




MOV 


#MAXBA,R3 




1777 


004766 


005737 


017524 




TST 


S&T1 1 


|KTii AVAlIiAililf 


1778 


004772 


100022 






BPL 


4$ 


; NO 


1779 


004774 


013700 


017772 




MOV 


ILSTBK, RO 


fGf!T ?HE LAST B&NK Of* MEMORY 


1780 


005000 


020027 


001540 




CMP 


RO, I1S40 


) 28K OR MORSf 


1781 


005*04 


002012 






BGE 


31 


f YES 


J7B2 
















1703 


005*06 


162700 


000040 




SUB 


»40»R0 


f BACK UP 2 K'S (RKDP MONITOR, ETC t ) 


1784 


005012 


01 2701 


177772 




MOV 


#*»§, Rl 


I AND FQM fHE MAXIMUM lUi ADDRESS 


1785 












fFOR O^fA TRAWfFSR 


1786 


005*16 


006300 




III 


A6L 


RO 




1787 


005*20 


005201 






INC 


Rl 




1788 


005*33 


001375 






BNE 


i$ 




17B§ 


005024 


162700 


000002 




SUB 






1790 


005*30 


Q0041S 




IS 1 


SR 


i$ 




1791 
1792 


OOIA32 


012713 




in 


MOV 


tH7776»C*» 


sfop m an more* this la mi 'maxia* 


1793 


005*36 


000413 






m 


7$ 




1794 
















1795 


005*40 


013700 


017770 


411 


MOV 




?KflI NOT 9RCUNT* OBT TMB LAIV 


1796 














lAVAZliABIiB ADDRE1B 


1797 
















1798 


005044 


00S737 


000040 


ill 


Til 




$ 3 Mm® bOAOBO PROORAM I 


1799 


0*5*50 


001003 






BNE 


s$ 


1 YSi 


1800 


005*52 


162700 


000800 




SUB 




pHS* SAV& THB MIT 190 WORDS 


1801 


005*56 


000402 






BR 


as 




1802 


005*60 


162700 


006000 


IIS 


SUB 




iSAVg fHl LAST t 9 !K @F MEMORY (ffytop 


1803 














jMONXTOR, ETC i) 


1804 


005*64 


010013 




311 


MOV 


R0 ? CM3 


fiAVl TH1 MAXIMUM BUS AOBRISSCMAXSA) 19 


1805 














jWHXCH 0AM fSSANSFIg CUM §E DONE iAflLY 


1806 


005*66 


012712 


031314 


fit 


MOV 


#PGEND 9 (R2) 


f 8 iA§gg& 8 


1807 


0*5*7? 


012777 


000100 


174040 


sit 


#SWOS*SSWR 




1808 


005100 


oniflio 






BEG 


ITS 




1809 


0051 02 


104401 


005110 




TYPE 


#ss$ 


If TYPE ASCXZ STRING 


1810 


005106 


000432 








64$ 


1 fGET OVER THE A8CZZ 


1811 












<U5«i2»/TYPE 


OCTAL BUS ADDRESSES FOR DATA XFER, BETWEEN 


1812 


0051 74 






64«s 









MD-11-DZP*H*, RKlf«RK05 PERFORMANCE EXERCISER MACYU 30(10405 06-JUN-.77 14 ,M 
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ffSISS 
6&$f 



f |69$l 
6888 



DZRKHG , 


P1 1 25 


«.APR»77 


1813 


0051 74 


011246 


1814 


0051 76 


104402 


1815 


005700 


104401 


1816 


005704 


000402 


1817 






1818 


005^12 




1819 


005912 


01 1346 


1820 


005914 


104402 


1821 


005716 




1822 


005716 


104401 


1823 


005722 


000407 


1«24 






1825 


005742 




1826 


005742 


104412 


J 827 


005744 


012600 


1828 


005746 


020012 


1829 


005750 


103762 


1830 


005752 


020013 


1831 


005754 


103360 


18 32 


005756 


010012 


1833 


005760 




1834 


005760 


104401 


1835 


005764 


000407 


1836 






1837 


005104 




1838 


005^04 


104412 


1839 


005^06 


012600 


1840 


005M0 


020013 


1841 


005112 


101362 


1842 


005H4 


020012 


1843 


005116 


101760 


1844 


005120 


010013 


1845 






1846 


005122 


023727 


1847 


005*30 


002003 


1848 


005132 


012737 


1849 


005140 


105737 


1850 


005144 


001402 


1851 


005146 


000137 



|0$S 



1 171*1 

70$l 



03747S ST3I 
002054 



MOV 


(R2)#«®CSP5 




TYPOC 






TYPE 


,678 


II TYPE ASCXZ STRING 


BR 


66$ 


j 1 GET OVER THE ASCXZ 


9 ASC1Z 


/ t / 




MOV 


CR3)fC0P) 


f 'MAXBA* 


TYPOC 






TYPE 




UTYPE ASCXZ STRING 


BR 


68$ 


1 j GET OVER THE ASCIZ 


.ASCII 


<13»<12>/LO 


LIHiTf / 


RDOCT 






MOV 


(SP)+,RO 




CMP 


R0,(R2) 


; CORRECT LO LZNSTf 


BLO 


9$ 




CMP 


R0,CR3) 


fCORRICf LO liZMXTT 


BHIS 


9$ 




MOV 


RO ff CR23 




TYPE 


,ns 


H TYPE ASCIIS ifRZHG 


BR 


70® 


1 1 SET OVE& THI ASCXZ 


*ASCii 


<19><12>/HX 


LIMIT? / 


RDOCf 






MOV 


(SP)*,R0 




CMP 


R0,(R3) 


pCQBRief nt bXNXtf 


BHI 


ios 




CMP 


R0,CR2) 


|CQRRS€f LO fjSMlff 


BLOS 


10$ 




MOV 


R0,(R3) 


f • MAXBA 9 


CMP 


MAXBA, III147S |8K MEMORY • SL0SB1R XXDPT 


BG1 


IS 




MOV 


I3747*|MAXBA jBUT SAVE LOADER 


f STB 


FRSTRT 


1 PROGRAM RESTARTED AT 210? 


BEG 


BCTST 


ffiO 


JMP 


EXRC6R 


?YES, SKIP flSf i fO 1 



MD»I i»Dgps&Hfl, fSNS i«-P»KOS PFRPORMANCE EXERCISER MAC 111 30( 1 046) 06«*JUN»77 HISS PACE 40 
DZRfHG.Pi 1 39»APR»77 10111 GST V&LUl FOR SnFTWARE SWITCH PP.GXSTER 



i ssa 










ffHlS U THE 


PCGZNING OF THE ( 


J SS3 










|DIPPERENT POUNDARY CONDITION 


f 8S4 
1955 










.■■fun miw (SIMS 1 
I ' *NQ QUI THS 




1SS96 




013737 


001 10A 


001471 


BCTITl MOV 


#«S»DRVf>fR 


1157 


ooiho 


013737 


0O13SS4 


OOISOO 


MOV 


DRVPR8,DRVCNT 


18SS 


003166 


017737 


174104 


001502 


W«DSVf MOV 


PDSVPTSI, 9019V 


IMS 


009174 


061737 


000002 


001471 


ADD 


•a» DRVPTP 


1160 


0OS40I 


001137 


001500 




dec 


DRVCNT 


issi 


005406 


100001 








TST1 


1812 


005410 


00013? 


007711 






EXRCSR 



jINXTXALXZE PTR TO DFV0 

yNUMBEF Of DRIVE* PRESENT 

ISAVK DRIVE KIZTI 19-13 ) 

jXNCRMENT FTP. TO NXT DRV# 

I DONE ALL DRIVES? 

?NQ* dO TEST THIS DPXVI 

I ALL DSNI* @Q TO EXERCISER PAW 



MD®! i ®DiR K H^» RKt i«^j?o§ performance exerciser 

DERKH0.P11 «»APP«71 101 It Tl 



NACYll 30(104S) 0S«JUN»77 
PERFORM WRITS Of 401 NORDS 



I4SS1 MOT 41 
CI SECTOR * 1 WOWS) 



if® 

f»KIT 



009414 000004 



009*1* 

0OS422 
00SI14 


013701 
010102 

011701 


OOISOI 
000001 






MOV 
MOV 

ADD 


QDRV»R1 
RlfRS 


009430 


012737 


00S41& 


001110 




MOV 


«19«9IiPERR 


005436 

OOS440 
005442 
005444 
00S4S2 
005456 


104416 
1 04420 
104416 
012737 
012703 
004737 


milt 

000401 

0O&3Q4 


033914 


1S1 

Ma 


CON. RESET 

DRV 8 RS£SEf 
CON e HSIEf 

MOV •1U1U»D1UP 
HOV I401#R3 
JSR PC # DOMRZTE 


00S46? 
005464 
005*70 
OOS472 
005476 


104101 
004737 
104102 
004737 

104103 


020112 
020126 






ERROR 

J8R 
ERROR 

ERROR 


iOS 

PC#CHKCS 

102 

PC # eHKDA 

101 


005500 
005504 


004737 

1 0410S 


O2033O 






asp 

ERROR 


IOS 


005506 

0OS112 
008S14 
00B520 

0OS934 


031701 
001005 

062701 
OI2702 
000747 


000010 

00001S 

000016 






ISf 
SMI 
ADS 
ADD 
§R 


fllOfRl 

fsti 
»ia#Pi 

•lft*Rl 

as 



1 PERFORM WRSfl Of 401 WORDS CI SEgTO^ * 1 WORDS) 

ITHIS TEST PERPORPS A MRXTE OP 401 WORDS CI SECTOR * 1W0RD) AND 
{CHECKS IP RKDA,RKBA,RXWC INCREMENTED CORRECTLY, WRITING XI DONE 
jON CYLINDER 0? SURPASS 0; SECTORS Oil AND lOill, XT SHOULD Bi 
I NOTED THAT THIS IS A BOUNDARY CONDITION TRANSFER, THE VALIDITY 
fOF THI TR&NSPSR IS CHECKED IN THE NEXT TEST, 
f DATA PATT1RN MRITTEN U 111111 • 
1 1 #«»•»*••«••«•••••*•«••••«•#•••••*•*•••••*••**••#««««••#•••••••• 

fSfll SCOPS 

fill MM 
glAVl RSSDA 

lEXPCTD RKDA AFTER WRITE IS SQNI 
f RETURN ADDRESS FOR LUPXNG 



pCLlAR MASK BITS XN POLLING LOGIC 
I PATTERN TO BE WRITTEN 
f WORD COUNT POR WRITE 

I GO DO WRITS 

f 1NTERRUPT DID NOT OCCUR APTER WRITE 

f CHECK ERROR BIT IN RXCS 

f ERROR BIT XN RKC8 SET ON DOING WRITE 

ICHECK IP RKDA INCREMENTED RIGHT 

?RKDA DID NOT INCREMENT RIGHT APTER 

}A NRXTE OP 401 WORDS 9 

I CHICK IP RXWC OVERPLOWED TO 

f RKWC DID NOT OVERPLOW TO APTER 

|A WRITE OP 401 WORDS, 

fSECfORS 10*11 WRITTEN? 

IMS 

f RKDA fO SS US1D N1XT C«C 10) 
liXPCfD RKDA APTIR NRXTE II DONE 
1 00 NRXTE SEC* 10*41 



MS®! l-DM*Hfl# RKlt-HKOf PEI»>nRMANCE EXERCISER MACYM 30(1046} Oft-JUN-77 HlSS f»AGK4f 

DWKHfi.PlI 3S«m*77 milS Pf*0 6 CHICS THAT 401 WARS WglfE WAI DONg eftPHKeTL¥ 



HOI 








HOI 








?9ys 








if 04 








HOI 
























if us 


O0S436 


0Q0004 




1909 








1910 


0OSS1O 


01 3701 


OOiSOl 


S91S 


001114 


0151717 


00§i41 


1912 


001941 


S044|S 




1913 


001*144 


104*20 




1114 


001141 


104416 




HIS 








191S 








1917 


009990 


004717 


00S4I4 


1911 








1919 


008994 


018701 


001000 


1920 








1931 


OOI1&0 


004737 


00S4I4 


1931 








1931 


001161 


404101 




1934 








1925 




004737 


030112 


1926 


oos*72 


104102 




1927 








1928 


005«574 


012704 


032514 


1929 


005600 


010402 




1930 


005602 


004737 


020150 


1931 


005606 


104104 




1932 








1933 


005610 


012705 


177764 


1914 


00561 4 


022712 


111111 


1935 


005620 


001 410 




1936 


005622 


012737 


111111 


1917 


005610 


004737 


005720 


1938 


005634 


104100 




1939 








1940 








1941 








1942 








1943 








1944 


005636 


005205 




1945 


005640 


001421 




1946 


005642 


005722 




1947 


005644 


020227 


033S1S 


1948 


005650 


OOi 361 




1949 








1950 


005632 


005712 




1951 


005654 


001407 




1952 


005656 


005037 


001164 


1953 


005662 


004737 


005720 


1954 


005666 


1 04100 




1955 








J956 









l»TBAT I READ ft CHEgf* THAT 401 WORD WRITS WAf QQNl CORRECTLY 

»thji test psrfqpms a read of the 401 wqudi written in ths 

fPREVXOUS flif AND CHS6K§ THAI THBY WER* CORRECTLY READ ( MOREOVEft 
5 If CHECKS THAT ONLY ONf NON-ZKRO WORD (401THJ WAS WRITTEN IN THE 
I SECOND mi? 0$ AN® TH8 REST Of THE WORDS AM ALL KROa 8 

TJT2I SCUM 



281 



MOV QDPV,Rt 

mov 9it,ihm* 

eoN e piiif 

DPV 8 iS§fT 
CON t RESET 



MR 

MOV 

jsr 



ERROK 

MOV 
MOV 
JSR 
ERROR 

MOV 
CMP 

BEQ 
MOV 
JSR 

ERROR 



INC 
BEQ 
TST 
CMP 
BNE 

TST 
BEQ 
CLR 

JSR 
ERROR 



PCiDOREAD 



#DBUF,R4 



R4 
PC 
104 



#1 
3S 
#1 
PC 

100 



CHXC1 



R2 
CHKBA 



4,R§ 

1111, (R2) 



1U1»$REG1 

ERINFl 



PS 
68 

CP23 + 

R2,tDBUr+1002 

2$ 

(R2) 

S$ 

3REG1 
PC, ERINFl 
100 



I OCT DRIVE • 

fAODRRSS FOR MJPXNO QN EROR 



|CLEAN UP THE BAM lUFfCR 
llNTO WHICH RKAD NXLb 
lit; DONE 

fwgpo cquns 

|QQ DO A HAD Qf 2 IECTORI 

I FROM DISK ADOREM GIVEN IN HI 

fXNflRflUPT DID N9S OCCUR AFTER 
I READ Of 4@l WQRDi WAS DONE, 
f CHECK If EROR 1ST IN HKCI ISff 
?£RQR SIT IN RXC8 SET ON DOXNQ h 

f READ Of 401 W0K0§ 8 

; STARTING BUS ADDRESS, INTO WHICH READ 
jWA8 DONE 

?CHECK IF RKBA INCREMENTED RIGHT 

|RKBA DID NOT INCREMENT RIGHT AFTER READ 

i or 401 WORDS, 

fALLOW 12 ERRORS, AT THE MOST 

I CORRECT DATA READ? 

pYES 

f GET EXPCTD DATA WORD 

| GET ERROR INFORMATION 

J DATA ERROR OCCURRED WHEN A 

; READ OF 401 WORDS WAS DONE 

j THE DISK ADDRESS FROM WHERE 

I THE DATA WAS READ INCORRECTLY 

;I5 GIVEN IN THE ERROR MESSAGE 

j REPORT 12 ERORS AT MOST 

I INCREMENT POINTER 

fCHECKED ALL 401 WORDS? 



fCHECK THAT REST OF 377 WORDS 
f ARE ALL O'S 

1 GET EXPCTD DATA WORD (0) 
) GET ERROR INFO 

j DATA ERROR ( IN A PREVIOUS 

I TEST A WRITE OF 401 WORDS 
I CI SECTOR * I WORD) WAS DONE 



MD»ll«DZF K Hrt, RK1 1»RK0S PERFORMANCE E«RCI$IR M&CYSi 30(1046) 0©«»iJUN®77 S4lSS f»AGl 43 



ZRKHG , 


Pll 25 




10118 


T3 




READ 


ft CHECK THAT 401 


WORD WRITS MM DONE CORRECTLY 


1957 
















|NOW THESE 2 SECTORS WERE 


1 958 
















I READ IN THE SECOND SECTOR 


1959 
















1 THE FIRST WORD IS A NON-ZERO 


i960 
















1 WORD (WHICH WAS WRITTEN BEFORE) 


1961 
















1 THE REST OF 377 WORD 


1962 
















y SHOULD BE ALL ZEROS, IF 


1963 
















1 THE WRITE WAS DONE CORRECTLY 


1964 
















) C& READ IS DONE CORRECTLY) 


1965 


















1966 


00S670 


00S20S 








INC 


m 


1 REPORT 11 Emm AT MOST 


1967 


003672 


001404 








BEQ 


6t 




I96fl 


005674 


005722 




SSi 




TST 


CR3J* 


$hlh WORDS CHECKIDf 


1969 


005676 


020227 


034S14 






CMP 


R2, #DBUF>|00O 




1970 


005702 


001363 








BNE 


41 


|XF NOT GO BAK 


1971 


















1972 


005704 


032701 


000010 






BIT 


#10, Rl 


| WERE SECTORS 10,11 WAS 


1973 


005710 


001030 








BNE 


TST3 


? YES 


1974 


005712 


062701 


000012 






ADD 


•12#Rl 


) FROM NSW RKDA, SIC 10 


1975 


005716 


000711 








BP 


IS 


iQQ SACK AND MAD FROM ifCS 10^11 


1976 
















1977 








pERINFi 








1 978 








| AT 


THE 


TIME 


Or ENTRYl 




1979 








|R2 


CONTAINS 


ERRORING BUS ADDRESS (WHS|« DATA ERROR OCCURRED), 


1980 








? CR2) CONTAINS BAD DATA THAT 


WAS READ BACK f ROM DISK 8 


1981 








fRl 


CONTAINS 


DISK ADDRESS WHERE Mht) BEGAN „ 


1982 


















1983 


005720 


010237 


001162 


SRINfli 


MOV 


R2,gREG0 


I GET BUS ADDRESS Of DATA ERROR 


1984 


005724 


011237 


001166 






MOV 


(R23#SREG2 


f GET BAD DATA WORD (READ) 


1985 


005730 


010146 








MOV 


Rl,«(SP) 


19B6 


005732 


020227 


033512 






CMP 


R2,#DBUF*7?§ 


1 FIGURE OUT THE DISK ADDRESS 


1 987 


005736 


003001 








BGT 


11 


j WHERE DATA ERROR OCCURRED 


1988 


005740 


G0S316 








DEC 


CSP) 




1989 


005742 


005216 




i$t 




INC 


(SP) 




1990 


005744 


032716 


000010 






BIT 


#10* CSP) 




1991 


005750 


00140S 








BEQ 


31 




1992 


005752 


032716 


000004 






BIT 


#4,(8P) 




1993 


005756 


001402 








BEG 


2% 




1994 


005760 


062716 


000004 






ADD 


*4, (8P) 




1995 


005764 


01 2637 


OOi 170 


2tt 




MOV 


(8P)*» SREG3 




1996 


0377 


000207 








RTS 


PC 





D8RKH0 9 PJ1 



89-APR 



KOI PERFORMANCE SKiRCIMft 

•77 $8111 ?S 



«*CY11 30(IO4IJ e§®aUN»77 
PFRFQPM MRZTB OF IS BECTORB 



Hill Mil 44 
$ I WORD 



If If 








t9t s 








lift 








3000 








200 1 








1002 








tool 








3004 








200S 








2006 








100? 








1008 


0PI77S 


000004 




toot 


0*11 74 


01 1701 


001502 


2010 


006rt00 


012737 


091030 


20tt 


006ft06 






ton 


Q06nl 


062702 


000021 


201 3 


006AI4 


01 2703 


O0V0U& 


2014 


OOloSO 






10 1 i 


006*22 


104410 




2016 


0ft6ft§4 


i044ii 




2017 








201 6 








201 9 


00§ft3§ 


Mil »*7 




2020 








1021 


006^34 


_ 

0*4717 




7022 








2023 


006ft40 


104101 




2024 








I02S 


0*6n48 


0047 37 


0161 II 


2021 


006M6 


104102 




2027 


006ftlO 


0047 37 


oiwlll 


gois 




104101 




2029 








2030 








2031 


OOiftl® 


"04™ 17 


9191 Jo 


3032 


006^62 


10410$ 




1033 


003064 


032701 


000020 


2014 


006*70 


001006 




3011 


006*72 


010201 




2036 


0*6*74 


062702 


000020 


303? 


006100 


012703 


001401 


203S 


006104 


00074S 





|»TliT I PERFORM WRXTE Of 11 BECTORB * 1 MOftD 

f THIS TBBT CHECK! FOR ANOTHER I0UN&ARY CONDITION, If 

i performs k mm @r it bectorb # i wqrs, rkda.rkba, 

|RKWG ARE CHECKED IS IK SF THEY AM INCREMENTED CORRECT!**, 
) VALIDITY Qf THE DATA WRITTEN li CHECKED IN THE NEXT 
|TiS§T 8 DATA IS WRITTEN ON BBCTOM 6®tt, lURFACf 
(CYLINDER CiOOIfH WORD ON SECTOR 0# iUWACl S, CYL 0), 

§ALJ6 ON iiefQRi 0»U# SWPFACI I (#091fH MORD 0M IKfOi 
|0« CYL 1) 



3§ 



081119 



9S1SI4 



SSI 



ICOPI 



ADD 
MOV 
CON, 
DRV, 
CON.PJBET 



QDRVfRl 
lllilLPMR 

RI?R3 
•aiffta 

IS001»PJ 



M9V 

jbb 



MR 



4m 



SIT 
BNE 

MOV 

ADD 
MOV 

W 



l44444fDBUP 

pc»dowrxte 
tot 

PC#CHKCS 

101 

PCiCHXDA 
101 



PdeHKHC 

m 

#10, M 
TST4 

#20*11 
•S40lfR9 

i$ 



I OCT DRXVC I 
pLUF ON IS WE TO 



I PATTERN TO SI NftXTTEN 

lifl §8 NRXffB 

ilMfWyPT BIS NOT ©gCOT ON 

I CHECK IF CROC SIT IN RKCB #Sf 

flRSR ill IN mm SEf ON D01H@ WRITE 

imun if mm incremented mxoht 

imU OZD 'HOT fHCWOTT CORRECTLY 

I AFTER I NKITC Of S901 (OCTAL) WO§S0§ 8 

I (18 BECTORB ♦ i) 

f CHECK If RKNC OVCWL0HC0 TO 

fRKNC BIS HOT OVERFLOW T0 9 
I WRITTEN QH iUHWI |f 
|Y1C 

i surface t 

jn0rd count 

too write surface s 



MO-ll-DZpKHr;, PM1-PK0S PERFORMANCE 
DZBKHC.Pll 25-APP-77 10118 



MACY11 30(10<§§) OS-JUN-77 I41IS PAOB 41 
READ ft CHECK THAT @00S HORO mm NAB DOHE CQ 



2039 










2040 










2041 










2042 










2043 










2044 










2048 










2046 










2047 


0*6106 


000004 






204® 


0061 10 


013701 


001802 




2049 


0061 14 


062701 


000013 




30S0 


006120 


012737 


006126 


001110 


3091 


006126 


104416 






20S2 


006130 


104420 






20S3 


O0H32 


104416 






2034 










20SS 


006114 


0O47S7 


001434 




30S6 










2087 










20SI 










3069 


0O6140 


012703 


001000 




2060 










2061 


006144 


00471? 


001414 




2062 


0061S0 


104101 






206i 










2064 


006182 


00473? 


090118 




2061 


0061S6 


104102 






2066 


006160 


012704 


0SII14 




2067 


006164 


010401 






206S 


006166 


904737 


0J0!§@ 




1069 


006172 


104104 






2070 


006174 


0t2708 


177744 




2071 


006900 


own 


044444 




§071 


006904 


001410 






2073 


006906 


012737 


944444 


901114 


1074 


O06M4 


004737 


008780 




2078 


001910 


104100 






i07# 










§077 










I07S 










2079 










ioie 










2061 










toil 




006208 






soil 


006924 


001431 






I0S4 


001926 


001711 






I0IS 


006? 10 


08O2« 


OSiiii 




2016 


006914 


001361 






I0S7 


006936 


008712 






loss 


006940 


001407 






20Sf 


006942 


001037 


ooiiii 




2090 


006946 


004737 


008720 




2091 


0069S2 


104100 






2092 










2093 










2094 











ll«»«)««««««tft*«*««««*«»«««»#«*«««««««««tt*«**«****ft»«*««»«««««««*« 

;$TE§T 4 READ & CHECK THAT 6001 WORD WRIT! WAS DOME CORRCTLY 

ITHIB TiiT CHICKI THAT THE 6001«WORD WRITE THAT WAS DONE IN THE 
f PREVIOUS TEBT WAS CORRECT, ESPECIALLY THE LAST 401 WORDS, THE 
IPXRST WORD OF THE SECTORC IN WHICH THE 6001TH WORD) IS WRITTEN 

I If THE ONLY NONZERO WORD IN THAT SECTOR, fHS MM 377 WOROI ARS 
I ALL ZEROS, If THE WRITING WAS DONE CORRECTLY » 



TSflf 48 



III 



ill 



sii 



isi 



iCOPl 

MOV @DRV$R| 
ADD I1S»R1 
MOV tlf-SliPCM 

CQNeRIigf 
DRV 8 lliSST 
COM e RiIlf 



4m 



MOV 

4m 



CMP 

am 

MOV 



sue 
ma 

fit 

em 

Iff! 
TUT 



CLR 
JBR 

SRROI 



KtCbSANftUr 



#I00@$H3 

m 9 mmm 

101 

108 

R4|R1 
PCfCKXIA 

104 

• M4#M 

944444$ fill 
31 

144444s SSIil 
PCERZNF! 

too 



m 
#i 

<R83* 

Mi iDBur*iooa 

IS 
(R8) 

l§ 

imcsi 

PCiBRINPl 

100 



fGST DRIVE S 

idiik addrisi mm 



mhiri mad is mm 



fCLCAN UP THC BUFPCR XMTO MHSCM 
pSIgAD MILL m DONE 
)BCT UP RSCDA 

? sector it# iumei o 

f^SRS COUNT 

? co m&8 tooo mm® (I iiCl) 

7 INTERRUPT DID NOT OCCUR AFTER 
{COMPLETION OF READ 

fCHSCK if $,m\ SIT tn PKCI ilf 
imon CRKCS) ilf on DOING SIA0 
fifARTgtfS §A OF DATA SUFER 

fRKSA 1NCIICNBNTCD CORRlCTLYf 
fRKiA DID NOT ZNCRBMBNT CORRCCTLT 

»0ATA WOW OKt 

$m$ fit m,m data mm 

t@iT» ®mm mum mm 

i data man, k mm or §o@i 

I WORDS Ctl BCCS * t WORD) MAI 90H1 
I IN A PCBVXOUB TMT, THC LAST TWO 
l$E€f@RS (LAif 401 W9R9S) M1R1 R1A9 
I BACK, fHii IHROR IMDICATli THAT 
I BBC Hi (LAST SUT QN8 BSCTOP.) 6AVI 
;IAD OAf A WORDi 

gMtORT ti mam it mm 

flNCREMBNT POXNTBN TO SA 

$mmnm 401 worobt 

iCMiCK THAT THB PEMAXNXNO Iff 

$mm® or ffti LASf sigfoi csie #0) 

$mM MAD MM Ai QH 

|DA?A SitROSIs If WBXU MAI SONI CORRICfL¥ 
flU THE PlgVSOUi TfST; THE LAST SECTOR 
t OF THE DATA BLOCK (12 SECS ♦ 1 WORD) 
f SHOULD CONTAIN ONLY 1 (FIRST) WORD 
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3098 

9016 
2097 
309® 
30ft 
3100 
3101 
3103 
3103 
!1M 
3105 

a l o« 

3107 



0PI9S4 


0OB304 






ZNC 


PI 


006*56 


001 404 






uro 


is 


001960 


O0S7II 




ill 


TIT 


<R2>* 


006*62 


030327 


0S4§|# 




CMP 


P3s«DiUF$1690 




001353 






!*Jg 


4g 


006*70 


0)370) 


ooooao 


i$i 


1ST 


#I0*?5S 


006*74 


001070 






BNS 


TSTi 


006976 


011701 


ooooao 




ADD 




006*0'2 


000711 






BR 


it 



MACYli 30(1046) 06-JUNO7 |4llS PAGE 46 

PKfcD I CHECK THAT 6001 WOH0 WRITE MAS DONE CORRCTIY 

»*• NON-IERO, THE REIT 177 IKQULD IE 
?ALL 0*§ 9 THII ERROR XNDXCATU fHAf 
I THE IOME Of 377 MOPDI 
I WERE NOT CORRECT 

fRiPSST 11 f§R9R§ AT MOST 

I INCREMENT POINTER 

f CHUCKED ALb WORDS! 

i done chickxnq ?m tunrAci if 

y VII 

i «o lit up roR surfaw i 

1 00 BACK i Hil&D SURfACI | 



HD-lt-OZR«Hr!, FMi-RKOS PERFORMANCE EXERCISER MACY11 30(1046) 06-JUN»77 14|B5 PAGE 47 



DZRKHG.PH 25-APP-77 lOllS T4 READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 

2109 jDOWRITE 

2110 | THIS ROUTINE PERFORMS A WRITE ON k DISK, AT THE TIME OF ENTRY* Rl CONTAINS 

2111 f DISK ADDRESS (RKDA) WHERE WRITE IS TO BE DONE; R3 CONTAINS THE WORD COUNT 

2112 |(RKWC), *DBUF* CONTAINS THE DATA. TO BE WRITTEN, NOTE IBA BIT IS SET, 

2113 

2114 » WRITE IS DONE IN INTERRUPT MODE, IF THE INTERRUPT DOES NOT OCCUR WITHIN 

2115 I A CERTAIN TIME, RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE • JSR' 

2116 {CALL, IF THE INTERRUPT OCCURS, RETURN ADDRESS IS ADJUSTED TO SKIP OVBR 

2117 J THE ERROR MESSAGE, 

2118 



2119 


006*04 


012777 


004002 


172710 


DOWRITEl 


MOV 


#4003*$RKCS 


fWRXTE, ISA 


2120 


006*12 


010177 


172712 




DOXFERl 


MOV 


Rl , f RKDA 


{ADDRESS THE DRIVE 


2121 


006*16 


010377 


172702 






MOV 


R3,$RKWC 


jXFER THIS • OF WORDS 


2122 


006*22 


005477 


172676 






NEG 


tRKWC 




2123 


006*26 


012777 


032514 


172672 




MOV 


#DBUF?iRRSA 


1 USE THIS BUS ADDRESS 


2124 


006*34 


012777 


006414 


172676 




MOV 


»3$,IRKVEC 


I SET UP INTERRUPT VECTOR 


2125 


006*42 


005046 








CLR 


»C8P) 


|NEW PSW 


2126 


006*44 


012746 


006352 






MOV 


#i®*»CSP> 


I SET NEW PC TO STACK •#*»•##••# 


2127 


006*50 


000002 








RTI 






2128 


006*52 


052777 


000101 


172642 


lit 


BIS 


$101»§RK€S 


;S£f lot; go tmim 3 im/ nmm 


2129 


006*60 


005037 


001466 






CLR 


CICNT 




2130 


006*64 


012737 


177760 


001470 




MOV 


#«20*«CNfi 




2131 


006*72 


005237 


001466 




an 


INC 


CICM 


} WAIT FOR INTERRUPT 


2132 


006*76 


001375 








BNE 






2133 
2134 


006400 


005237 


001470 






INC 


CICNT! 




2135 


006404 


001372 








BNS 


3S 




2136 


















2137 


006406 


004737 


022032 






JSP 


»C#0T4RG 


f TIMID OUT s XNUftRUM DID NOT OCCUR 


2138 


00&U2 


000207 








RTS 


PC 


j RETURN TO 181 1RQR HEASGf 


2139 
2140 


006414 


022626 






3Sf 


CMP 


cs»)*»cbp)* 


immom if ask poznter 


2141 


006416 


062716 


000002 






ADD 


$2, cap; 


1 ADJUST mwm ADDRESS TO §E1P OVffl 


2142 


006422 


000207 








UTS 


pe 


f EROR ME8AGE ON RETURN 



8D»f i»0MKHG, RKU-RK08 M^FOPM&NCf CXCRCXBCR MACY11 I0CS046) 0S»JUN«?7 HiSS PAGE 48 
DlPKHGgP! 1 25-APR-77 lot 18 T4 HEAD & CHECK THAT #001 WORD $RX?£ HAS DONS CORRCTLY 



2143 






2144 






214S 






2146 






214? 






1140 






214$ 






2! §0 






§131 






3112 


006 414 


012771 


2!S1 


006 412 


0Q0127 


21S4 






2111 






2IS& 






2f S7 






31 SS 












3!§0 






3111 


Q0S4S4 


011701 


2i§2 


006440 


011701 


& 1 
2 1 e * 




otitis 


si§4 


001410 


oosiei 


aits 












3187 


001418 


©01174 


I1SS 


00§4§4 


000307 



f fHII BOUTINS PERFORM! A MAD ON THE DISK » AT THE TIME OF ENTRIf Rl CONTAINS 
f THE DISK ADDREI8 fPQM NHERE THE BEAD SS TO SE DONE R| CONTAIN! fHS $OftD 
jCOUNT (RKWC), MhQ ®lhh SE DOME INTO DATA iUFTER AT *©aUF* s 

I READ IS DOW in INTERRUPT MODE a iF THE INTERRUPT DOM MOT OCCUR MXfHIN 
5 A CIRMSM TIME, RETURN IS MADS TO THE ERROR MEIIA9E FOLLOWING THE 9 JiSR f » 
sSAL!s e Sf THS INTSBPUPT OCCUR! A§ BXPECTED, RETURN ADDRESS If ADJUSTED 
j TO SKIP OVER THE ERROR MiSSASI* 

000004 173870 DOMMS NOV I4 S |RK1 fREAD 

m BQXFfB 

iCLEANBUP 

iCLBANI OUT THE ©ATA SUFflfl (ALL MORDI HRXTTEN TO 177777) INTO WHICH f HI 
IREAO FHQ« THE BISK HXLb if SMI® DAM IUFFIIS ITARTI if *0SUF*&N0 II 
1 1000 C OCTAL) HORDE LONO, 

iifooo eLSAN»uriMov «»iooo»R3 nw mum 

011SI4 MOV •DBWtftl (INITIALISE SA 

oaaaaa in «ov »aaaaa»(R8)+ 

INC Pi yDONB ALL HORDIT 

fBUrflR ITARTXNO AT (PHYflCAXj) BUI 
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012737 
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172313 
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0O6S02 


012737 
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172184 
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0O6M0 


012737 
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001884 
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2197 


OOS§24 
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00M36 
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01S70O 
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006942 
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00SS44 
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oos^so 


001171 
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00*483 


013777 


oossoa 


171410 


220S 
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012777 
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1734IS 
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041777 
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01277? 
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f»TBit s mm mm TRANirBR MteuiiB aax ioundary 

tttTHSB TBIT rBRrORNBI A WHSTS Of i ilgfORS ON THE 02iK FROM MS5MOSI¥ 
yftlfQCATXONI AROUMB THE SIR BOUNOAR1T, IBCTORI 0,l s CYL 0, SURfACI 

f#0 AM NRITTBN, f HfllCAL SUS ADDRIIIEI fOR THE DATA SUfrtRg 

l# if70©O TO 300771 X V B, C ISMS® 3 TO (32K42IS) 

f«CHBCKXNO li BOOT TO SII IF MX BITS, RXIA # RXOA» RKNC INCREMENTED 
fttCORRBCTLT. THEN Mfl BUrrBR U CLEARED OUT AND A RSA0 li DONE 
f«INTO XT, A CHECK IB mm 1Q |EB IF THE CORRECT DATA WAi RECXEVED, 
9»ONLY 12 Mm ERROR! ARE REPORTED. 



TITS I 



SC0PI 

my 

M0¥ 



OLlTBKfflOOO 

II 

Tifl 

ffllOOtlSXXPARI 
«aoOO»l#XXPARI 



fSlK or mm Of NEMORTT 
fYCI 

fir NOT* DSMf ©0 THXI TBIT 

i«ap ai«aax thru pah s 

fMAP 33«3SK THRU MR I 
(TURN ON NBMORY MAMA6IMiMf 



ylBT UP DATA BUPPER CI 690 OOTAL SOiBi LOMiJ fOR NRXTXNO TWO IBCTORI 
(ON fffg DXIX, THB TRANBPCR II ©0M1 MOUH0 THE SI& BOUNDARY FROM 

flUI A0BR1SS (PHYBXCAL) 177960 TO S33K«I|0) TO t%MM) 

|0AfJ^ Si THB HUfflft If A OOUNT PATTERN ITARTSNO PROH I POR THB FlWf 
}NORD TO C9§© rOR THB LAIT mm, 

$pmm&h lump addrsiii itiooo to s@§77§ cmk®is# to laxtaii) 



an 



it § 



my •aitiLPSRR 

CON.RSSBT 
DRV.REIET 



mv 

INC 

CMP 
BNB 



MOV 



«l«R0 

fiaroooiRi 

R0 # CR1)« 

10 

IS 

ODRVrlRKDA 
»*1000|IRRNC 

1177900^1 
#3 f lRKCI 



PC»CHKCI 

101 



fLUff T6 I® 8N BROR (IN t) 



(XRXTXAUBE DATA PATTBRN TO SS 
(VRXTTBN 

|BA TO MART fH¥IS€AL AOORIII«177000 
fWMfl OOUNT PATTBRN CS^iOOO) 
fXRTO DATA BUPPBR (PHYI MM® 
H7TOO0 TO a@077#J 

i&m q 9 sie @ ; m% o 

»N0RD COUHf ssg IBCI 

iiUi kmmrn, 

fNRXTBiOO 

fNAXT POR CNTROb HBf 

|AM¥ BROR IN RKCIf 

("BRR^ IBT U RRCI# ON 00SM0 A 



PC»CHRMBX 



101 



j WRITS §f IBCTORI (Oft) PROH 
l(PKYISCAL) Mi ADDRBIII 1770©§ 
|C|I7O0@ fO l@977IS 

(CHBCK THAT MM OVBRPLONBD INTO 
(BXTINDBD MBN, iSf (0) @f RXCI (BIT 

fUI HEN ilf 9 IBT? 

|OIf RXei»BR#OliDA 

I MM SIfi INCORRICT # SST 4 Of RXCI 

»(MBX Slf 0) HH8UL9 HA¥I lit 
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CHICK BITS TMANirCP ABOUND 3|K HQUNDARy 
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tsi# 








1317 












01270) 


u y t « v •/ 




OOivf 


ft 1 9 1 ft A 


! 7 7 on O 
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Ol'Bft JU 


004737 
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t§3i 
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U vOQ 5w 
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004717 
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2?38 


O0®$§1 


1 04 J 91 
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2340 








•99 A 1 
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UvBISt 


V 't f w e 


610338 

w ® w a d? w 






i on os 




II4§ 








2346 








§S47 








|i4§ 








2349 








z /a y 
















2252 


666 2 


012737 


Uvbo ? V 


22S 3 


UOoo f u 






22S4 


a n & « ^ *3 
U "ft R > « 


« ft A A "3 ft 














U U © ci f 




137000 




uuo / u u 


j O 2 1 






067 02 


020127 


141000 


, 9 - o 


A ft & n A 


001374 












2261 
































^ „ 


6 7 1 


01 3777 


001502 






012777 


177000 


2267 


006724 


01277 7 


1770 00 


2268 


067 3 2 


012777 


000005 












ft n < i An 
















006742 




0201 12 




06 7 4 6 






227 4 








2275 








2276 








2277 








2278 








2279 








2280 









172274 
172262 



MOV 
MOV 
JSP 



MOV 
ADD 



•177000#R4 

PC,CH«A 
104 



QBflVfM 
103 



am pc#chkwc 

mm® so§ 



MOV #4$,SLf»ERK 
CON, RESET 
DPV g RESET 



MOV 
CLR 
CMP 
BNE 



MOV 
MOV 
MOV 
MOV 



JSR 

ERROR 



#137000, Ri 

CPS 3* 

Rl, #141000 



QDRV, §RKD& 
#«!000,iRKWC 
#177000, fRKBA 
#§,#RKCS 



PC,CHKCS 

102 



jAFTKP RK8A OVERFLOWED ON DOING 

fA TRANIFSR SF 8 SgCfSM FROM SUI 

?ADDM§S (PHYSICAL) ITAMSN8 AT 177600 

|W0PD COUNT 

f STARTING §Ui ADDRiSsf 

JCHKCK IF RKItA INCREMENTED CORRECTLY 

flRKSA BID NOT INCREMENT CORRECTLY 

?AFTgR WRITE SF | iF.CSORi FROM A D&f A 

} BUFFER STARTING AT (PHY8ICAL) iUI 

fADORSii Cn7OOO«iO0?7#3 

fOET EXPECTED 

fDISK ADDRESS 

ICHECK IF RKDA iNCMMIKflS COMICTLY 

pPKDA INgRlMlNfED WRONGLY htm 

ik wrote or i iECTOP teas mom 

IDATA BUFFER ifAU«N§ AT lUi 
fADOKCia CPHVMS&U J77000 e 

I CHICK IF RKWg QVmFWm® efliWgfLf 
fRKWC DID NOT OVERFLOW TO ON 

rD3iN@ & vmiTi or i mewm fmn 
jnqw, mm si 0ohi or ihi Mfk 

jfHAT NRlfMH fO SII IF If 
|CAN il MA& QOnMCSU 

|LUP TO 4S ON SSOS C 9J 



fCLEAR THE i000»WORD DATA 

I BUFFER (PA 177000 TO 200776) 

f ALL DONE? 



| NOW, READ BACK INTO THE 
; SAME SUFFER 3 SECTORS 
1 WRITTEN PREVIOUSLY 

} ADDRESS THE DRIVE CXL 0; SEC 0, 

I READ 2 SECTORS 

I INTO THIS BUS ADDRESS 

I READ? GO 

| WAIT FOR CNTROL RDy 

I ANY ERROR IN RKCS7 
J ERROR BIT SET IN RKCS ON DOING 
|A READ Of 2 SECTORS (0,1), CYL 0, 
fSUR 0, INTO DATA SUFFER STARTING 
r&T BUS ADDRESS 1770000, NOTE AFTER 
J1777776, RKBA WILL OVERFLOW (03 
f INTO MEX BITS (BIT 4) OF RKCS ( 
I IF THE ENTIRE TRANSFER (1000 WORD) 
;WA8 DONE RKBA WILL CONTAIN 1000 
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2283 


006750 
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177764 
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012702 


137000 
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006760 


012701 
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006764 


020112 




2289 


006766 


001414 
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006770 


00S705 




2291 


006772 


001420 
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006774 


005205 




?29S 
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006776 


01 0137 


001162 
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007ft02 


011237 


001164 
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007n06 


104107 
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2299 








2300 








2301 








2302 


007010 


104421 


002214 


2303 


007014 


004737 


017774 


2304 








2305 








2306 


007030 


062702 
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2307 


007*24 


005201 




2308 


007026 


022701 


ooioot 


2309 


007a32 


0013S4 




2310 








2311 








2312 


007f>34 


005037 


177572 



MACYI1 30CI04S) OS- 
CHECK DATA TRANSFER 



MOV 
MOV 

MOV 

CMP 
BEQ 
TST 
BEQ 
INC 

MOV 

MOV 

ERROR 



#«H4»RS 
#137000, R2 

91, Rl 

R1,(R3) 

8$ 
RB 
91 

m 

Ri,§pj;Go 

(Ra3»$REGl 
107 



TYPMSG ,MIG13 
JSR PCTYPDBO 



ADD 
INC 

CMP 



is, ft a 

Rl 

liOOURl 
7S 



•JUN-77 14IS5 PAGE Si 
AROUND 33K BOUNDARY 

I AMD BIT 4 OF RKCi C^EK) WILL BE SET, 

I REPORT ONLY 12 ERRORS, 

1 STARTING ADDRESS OF BUFFER 

; (PA«177000) 

; INITIALIZE DATA PATTERN 

ICORRSCT DATA WORD RfSCVDf 

I REPORT THIS MRORf 

fCOUNT ER0P18 

?G£T SXWTSD DATA WORD 

I GET DAW WORD RKVD 

i DATA COMPARISON ERROR ON DOING A 

I READ OF 3 SECTORS (§?!» CYL 0, aURFACE 0) 

j INTO DATA BUFFER ( PHYSICAL ASMEM 

f 177000 TO 200776) 

I TYPS ^PHYSICAL @UI ADDRESS 9 

I TYPE THi 6 DIGIT PHYSICAL BUS ADDR1SS 

jWHSRI f HE DATA SRRQH OCCURRED « 

I INCREMENT POINTER TO BA 

ICHECKID THE EMTIRS iUFFSRf 



j TURN OFF MEMORY MANAGEMENT 
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CHICK DATI TRANSFER FROM 218 T8 33K 
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ooiaio 


000004 
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017773 


001740 


3334 




013717 


ill! 


(I07AS0 


103002 






llli 




000137 


097S74 


nana 


2327 


@ws§ 


011717 


001300 


§3I§ 


007*S4 


018737 


000004 


177178 


1311 










1310 










111! 










1311 








091110 


nil 


007*|7g 


011737 


00119© 


1314 


OO7fO0 


14441ft 






§331 


OQ?10i 


104430 






tan 


O07<O4 


011700 


0@00@i 




133? 


0071 10 


012701 


110000 




1331 


0071 14 


010011 






1319 


0071 ti 


008200 






3340 


067130 


020017 


010001 




1341 


007H4 


O01S73 






3341 








171014 


1343 


007111 


013777 
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2344 


007134 


012777 


170000 


47I0&1 


SMS 


007142 


013777 


160000 


17I0SS 


8346 


0O71SO 


011777 
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111044 
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104417 






3341 
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004737 


030U3 
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0071S4 
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004737 
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2361 
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007174 


012703 
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007900 


012704 
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004737 


020150 




2368 


007910 
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■ •TUT ft CHECK DATA TRANSFER FROM a»K TO m 

i#?HIS TMT BASIS A W «TI 9 ? ** WORDS FftOM A BUFFER LOCATED AT IS& 

j #TH1N THI DATA II «A0 S4C& INTO THf SAME SUFFf ?t(i«®SiK) AND Si 
„_ — - — — .... ---- — | g f% 



1 #CHBCKEP ffl SEE IF If Si CORRECT. NOTE THAT THE SUITER 
|#WXTH ALL l s l BEFORE THI READ. 



ribbED 



|*THE WRITE I® STARTINO AT CYLINDER 0, SECTOR ©# SURPACE § s 

WIS IC9P1 



ISl 



m 

IHSS 

JHP 

MOV 

N§V 



SLSTBK»I1740 

11 

TST7 

litO0»SIKIPARS 

• i#smro 



$m OH MORE OF MEMORYT 
I YES 

I IF NOT* DOWT §0 THIS TEST 
fMAP 38>)3K THRU PAS I 
fTURN m HEN M&NA0EM1NT 



I WRITE A COUNT PATTERN * 1^100001 INTO DATA BUFFER (PHYSICAL IP0PISS 

----- fHSS DATA 1UPF1P HILL SI Ui 



|1SOOOO»17777S), 

M8V laSflbPERR 
ill CON.RESST 

DRVgRlilf 
MOV »1*R0 

mov tiaoooo#Ri 

111 MOV RO»(Rn« 

INC RO 

CMP IS0 f t$0§0t 

BNE 3S 



M9V 
MOV 
MOV 

MOV 

CON.RDY 

JSR 
ERROR 



QDRViSRXDA 
I »l 00O0I SRXNC 
•ISOOOOilRKBA 
•ItSRKCS 



PCiCHKCS 

101 



PC»CHKHIX 
ERROR 10S 



JSR 



flOOOOtRS 

#|gOO00#H4 

PC«CHKBA 

104 



F8H HRIYINO ON THE DISK® 
ILUP TO IS M EROR 



IINITIALIIE DATA PATTERN TO SI WRITTEN 
I INITIALISE M CPAis|IO§0@3 SIR 
(WRITE eOUHf PATTERNS (i®iOO0O) 
I SHIS DATA BUFFER (PA 410000 16 

I17777S* ISK^iiMj 



twRiTE os sue §! cyl mm 
tw words 

f FROM THIS §U§ ADDRESS 
yWR!TE» 00 

I WAIT few CONTROL READY 

I ANY ERROR IN RKCST 

f'ERR* iSf HIT IN RKCS 8N WIN® 
fA WRITE OF 4K WORDS FROM 160000 

KasK-i9K)« dim mm mm® on 

I SEC 0# CYL 0* &m e If ALL IK 

(WORDS WERE WRITTEN RKBA SHOULD OVERFLOW 

p AND CONTAIN 0, SIT 4 9F WCS 

fCMIX BIT) SHOULD BE i 

(CHECK IF SKBA OVERFLOWED AMD HEX 

(BITS (4) IN RKCS WAS SEf 9 

UMEX BIT 4 HOT SET AFTER OVERLFOW Of 

?RKBA 9 WRITE Of 4K MORDfl C2SK»32K} WAS D0MS 8 

I RETURN HERE If HQ ERROR 

I WORD COUNT 

^STARTING BUS ADDRSSi 

1 CHECK If RKBA INCREMENTED CORRICTLY 

?RKiI DID NOT OVERFLOW TO IFTSR h WRITE IF 4K 
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007920 


013737 
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1044S6 
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3380 
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007932 
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130000 
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007936 
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007940 


023701 


140000 


33S4 
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2313 








23SS 
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013777 


001502 


23S7 


007^14 


018777 
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012777 


160000 


3369 








23f0 
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012777 
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007976 


104417 
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23S3 
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23f4 
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23IS 








2391 








2317 
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OillOS 


177714 


1311 


007111 


012701 


110000 


23ff 








S400 
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011701 
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3401 








1401 


0O?«8 


020113 




2401 


061124 


001413 




2404 


007186 


010137 


oonsa 


240S 


©o^ia 


011231 


0011S4 


1401 


00711® 


104107 




S401 








?40S 








3409 








2410 


007140 


to4481 


@0iai4 


2411 


007 HI 


004717 


017774 


3411 








2413 


0071SO 


00S30S 




3414 


007112 


Q0140& 




3415 








241S 


O071S4 


063703 


000003 


2417 


007 *60 


005301 




341S 


007162 


022701 


001000- 


2419 


007166 


0013IS 




2420 








1431 


00117© 


005037 


S71S71 
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CHSCK DATA TRANSFER MOW 8SK TO 33K 



4$S 



111 



JSR 



eeN 8 



MOV 
CLR 

CMP 

SMI 



CSNgRSY 



PCiCHRNC 

ios 



#ii@0@0#«i 
(Ri)4- 

#i40O00sSI 
II 

©DH¥?§RKSA 
••10000»SRKWC 

#i|06@0«iHKSA 

ISfSRKCB 



my 

M8V 



cmp 
sio 

MOV 
MOV 



PCiCMXCB 

101 



•iaoooo»R8 

IliRl 
R1#(R3) 

7i 

(RS)»8RE0l 

107 



fYPM#@ 



INC 



ADD 

INC 
CMP 

ME 

CLR 



»MS01S 
PCiTYPDBO 



m 



Rl 

I1000;R1 

u 



fWORDS C160000 fO 17777S) 

fCHWSS RSSWg OVERFLOWED CORRECTLY 

IRKWC DS© NOT OVSfLOW TO 
t&FTM A WRITE OF IK WORD U&0OO0 
pTQ 177776) 



I RETURN ADDRESS FOU LUPIUS 



I CLEAR THE DAW BUFFER BEFORE 

$miM a READ SNfO IT 



i read rnm sic ® 9 mn o# « 

i4K mm® 

firm THIS SUi ADDRESS 

fWAXT FOR CNTROL SIDY 

f ANY ERROR W RRCBt 

f ERROR SIf SET IN RMS Off MSNG 

|A MAS OF m WORDS INTO MIMSRf 

f <ISOOOO»17777S) 

f REPORT II ERRORS AT USSf 

(STARTINO AD9SSSS Of SUFFER 

)(PAfll60000) 

t INITIALISE DAf A PATTERN 

(CORRECT BAf A 10801 

i get expctd mn mm 

l@UT DATA WORD RECVD 

I DAM Umm 8N DOING A «AD OF 
?4K SfQRBS STARf IMS FROM SEC 0* 

I CYL 0* §«ft 1MT0 MIM68Y CII0Q00* 
1177777*) 

fTYPE 9 PMY#SCAL SUI &80RMS* 

If ffl OUf THE PHYSICAL SUS ADDRESS 

p^HIRf Qhth 

I ERROR OCCURRED, W CONTAINS 
f THE VIRTUAL AUBRSiS 



(POINTER TO MBit BA 
fMSXT PATTERN 
$hm DONE f 
(NO 

iturn orr m® m®& 
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2435 






2436 
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2439 






2440 






3441 


007174 
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2442 


007176 


005737 


2443 


007402 


100004 


2444 






244§ 


007404 


033737 


3446 


007412 


002034 


244? 






344S 


007414 


01 3703 


3449 


007420 


162703 


3430 


007424 


000241 


2451 


007*36 


006003 


2453 






5451 


007430 


005001 


2454 


007433 


010346 


3455 


007434 


OQ304S 


2418 


007438 


013746 


2437 


007442 


004737 


3458 


007446 


00S726 


24Sf 


007430 


001401 


3460 


007453 


005301 


2463 






2462 


007414 


062601 


2463 






2464 


007456 


005002 


3465 


007 460 


163701 


246ft 


007464 


100403 


3467 


007 466 


063703 


34651 


0T747? 


000772 
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007474 


063701 


2470 


007100 


050103 


2471 


007102 


00 404 


2472 






2471 


007104 


012703 


2474 


007110 


01 2702 


2475 






2476 






2477 







0175J4 

017772 



003014 
032814 



000400 

02S312 



000014 
000020 

000014 



040000 
000124 



001140 



l»TEST 7 PFRFQRM THS, LARGEST POSSIBLE DATA TRANSFM 

f THIS TEST PERFORMS THE LARGEST DATA TRANSFER POSSIBLE 
jWITHJN AVAILABLE MEMORY 8 

|1) IF KT11 IS PRESENT A WRITE OF iSK WORDS IS DONE ON 
I THE DISK (PROVIDED 28K OR MORE IS PRESENT) t 

|2) IP KT11 IS NOT PRESENT THEN ALL BUT TOP 1.5K OF MEMORY WILL BE USED 
f FOR WRITING { RKDP MONITOR) s 

I ALL DATA, f RANSfgRi AM DONE STARTING AT BA *PGEND% 
I ALL WRITES ARE DONE BEGINNING AT SECTOR 0, CYLINDER 0, 
I SURFACE O e 

I AFTER DOING THE 'WRITE* A ®WRIT1 CHECK* li DONE 
I TO SEE IF THE WRITE WAS DONE CORRECTLY* ANY WRITE 
fCHECK ERROR IS REPORTED , 

1 1 

T3T7I SCOPE 

TST IKT11 fMMORf MANAdlME&ff PRESENT? 

BPL II I NO 

f YES 

CMP iLlfSfCf S4S40 |28K OR MOMf 

BGS XFR16K pYES 



SSI 



MOV 

ius 

CLC 

ROH 

CLR 

MOV 
CLR 
MOV 

JSP 
fST 
S1Q 
INC 

ADD 

CLR 

SUB 

SMI 

ADD 

BR 

ADD 

BIS 

BR 



XFR16KI MOV 

MOV 



ass 
sss 



MAXBA, R3 

m 
Ri 

PCjl«$DlV 

(SP>« 

3$ 

R» 

(Sp)** fti 

m 

#14#Bt 
4$ 

3$ 

#14*81 
Ri i R2 
XFR 

#40000, R3 
U24»R2 



I FIGURE OUT THE MAXIMUM 
fXFW THAT QhH m DSN! 

I FROM *P@1HD* f8 THE 
I'MAXBA' 

f PUT DSV1DTO ON Sf&CK CbO) 

j (HIGH PART) 

jDIVISOR 

1 00 fO OIVIDE ROUTINE 

i pop err remainder mm stack 

?«t • or sectors required to 

i do write or # or mnm 

I (CONTAINED IN RO), Ri CONTAINS 
ft or SECTORS 

}F0RM THE SXPIST1D DISK 
I ADDRESS • AFTER fHl NRXTE 



iR2 contains expctd KXOA 

I AFTER WRITE IS DONE 



?# or vjords • i6K 

jRKDA SHOULD INCREMENT TO 

| THIS AFTER A TRANSFER OF 16K 

I WORDS STARTING AT DISK 

j ADDRESS « (CYL 2,SUR 1 , SEC 4) 



MD" 1 1 -DZR*HG» RK1 1 -PK05 PERFORMANCE EXERCISER 

T7 



DZRKHG.Pl 1 25 


»APP«77 


10118 


2478 








2479 


007^14 


053702 


001502 


24R0 








2481 


007">20 


012737 


007526 


2482 








2483 


007126 


104416 




2484 


007130 


104420 




2485 


007132 


013777 


001502 


2486 








2487 


007140 


010377 


171460 


2488 


007544 


005477 


171454 


2489 








2490 








2491 








2492 








2493 








2494 








2495 








2496 








2497 








2498 


007550 


012777 


032514 


2499 


007156 


012777 


000003 


2500 








2501 


007164 


104417 




2502 








2303 


007166 


004737 


030113 


2504 


007372 


104102 




250S 








2506 








2507 


007574 


004737 


020136 


2508 


007O00 


104103 




2509 








2510 








251 1 


007602 


012704 


032514 


2112 


007606 


004737 


030150 


23! 3 








2314 


007S13 


104104 




2519 








2516 








2517 


007614 


004737 


020330 


2518 


007620 


1 04105 




2519 








2520 








2321 


007622 


012737 


0Q7630 


2522 


007630 


104416 




2523 


0O7S32 


104420 




2524 


007634 


013777 


001503 


2525 


007A42 


010377 


171356 


2326 


007646 


005477 


171332 


2527 


007^52 


012777 


032514 


2528 








2529 


007660 


01 2777 


000407 


2330 








2531 


Q07§66 


104417 




2532 








2533 


007670 


004737 


0201 12 



MACfii 30(1046) 06«JUN«.?7 |4iSS PJMUS SS 
PERFORM THE LARGEST POSSIBLE DATA TRANSFER 



BIS 
NOV 



QDRV*R2 
#lg s $LPERR 



I713S6 Ml 



CON, RESET 
DRV, RESET 

MOV QDRV, IRKDA 



MOV 
NEG 



R3,9RKMC 

fRKMC 



MOV 

MOV 



JSR 
ERROR 



JSR 
ERROR 



MOV 

JSR 



JSR 
ERROR 



iPGEMDf IR&S& 



PCfCHKCS 

102 



PC»CHKDI 
103 



#PGEMD f R4 
PC^CHKBA 



PCCHKWC 

105 



MOV #2S*SLPERR 
CON, RESET 

DRV sRISET 

MOV QDRV, f RKDA 

MOV R3,8RKWC 

NEG 9RKWC 

MOV #PGEND»|RKB& 

MOV 8407#@'RKCS 

CON.RDY 

JSP PCCHKCS 



I ADD THE DRIVE S TO 
I EXPCTD RKDA AFTER XFER 
|LUP BAK TO '1$' ON ERROR 
|(SW 9) 



I ADDRESS THE DRIVE* 0,SUR 0, 

I SEC 

; WORD COUNT (IF MORE THAN 

|28K IS AVAILABLE A TRANSFER 

I OF 20K WILL BE DONE, IF 

I LESS THAN 3SK, THE 

j LARGEST TRANSFER WITHIN THE 

; AVAILABLE MEMORY WILL 

I BE DONE, IN BOTH 

yCASE8» DATA TRANSFER 

jWILL BE DONE STARTING 

} AT 'PGEND* 

I START WRITE FROM HERS 
fNRITE, SO 

;WAIT FOR CONTROL READ! 

ICHCK RKSS FOR IRROR? 

I ERROR BIT SI! IN RKC8 ON 

; DOING A LARGE 9 WRXTl e 

? CHECK IF RKDA INCREMENTED CORRECTbYT 
; RKDA DID NOT INCREMENT 

jCORRECf L¥ 



} CHECK THAT RKEA XRCRENENTED 
yCORRECTLYf 

?RKBA DID NOT SMCRBMOTf 
I CORRECTLY 

? CHECK THAf mm OVERfbOWlD 
jRKWC DID NOT OVERFLOW TO 
I2IR0 hfUm h WRITE 

ILUP BAK TO »2S # 0^ gROU CSW 9) 



lAODRisi the mtm f m o 9 sie o#susi q 

! STARTING BA 

I WRITE CHECK, SSE, GO 

I WAIT FOR CONTROL RDY 

1 ANY ERROR IN R&CS 



MD»M»DZpKHfl, RKlfRKOfl PERFORMANCE EXERCIIER 30(1 046 ) 0&*JUN®77 hiss pagi; ifl 

0ZRKHG.P1 1 39»APf»»77 10118 T7 prRFORM TH£ LARGEST POIIIILE DATA fRANSTO 



3S14 


0O7§7 4 


104102 










2S 31 














21 3$ 


Q07S7& 


1532777 


040000 


171 31® 




BIT 


2937 


0077Q4 


001030 










353$ 


007706 


033777 


ft ft A ft 1 


J 7 1 1 v<$ 


III 




33 if 


0^771 4 


1 4 & 










2540 














2S4 1 


00 i 7 1 i 










JIB 


2S42 


007732 


I 7 717 


1 7 1306 


00 X 1 M 




MOV 


2I4S 


007"? 30 


104110 










39 4 4 














3S4S 














|S4§ 














2S47 














f S4S 














3§49 














ISSS 














2SS 1 


007731 


001 7 77 


1 7 1 S§§ 




ill 


Til 


29§3 


007 7 3S 


00 HI 1 








Sf @ 


2313 














2SS 4 


007740 


n i 7708 


S 7 S S§0 






MuV 


39SS 


007744 


04270S 


177710 






IIG 


28S4 


007790 


001301 








&§L 


23§ 7 


007712 


1 10S77 


1 7 1 if© 






SUi 


asii 














39§§ 


" " 




UUUvi f 


171 f 40 




116 


2SS0 














3311 


0O7"?§4 


0007 IS 








IP 


MSI 














IS6S 














2S§4 










p@0 


CHECK TNC 


2§§® 














?S6I 


0O716S 


000137 


00ISII 




7$I 





S03 

• BIT S4ifRKC§ 
7| 

«WCE»IRKER 

®§ 

PC#0T4R0 
0RXlA,IREOa 

110 



0RKNC 

7S 

IRKNC»R0 

f $771S0»PS 
M 

RI,IRKIA 
«17*PRKNC 

IS 



»IKIP CHECKING FOR WCE IF HE IET 

|WRITE CHECK ERROR? 
fNO 

fOET RKetiERfDIfDA 

I WRITE CHECK ERROR, RXDA 01 VII THE DISK ADDREII 

INHERE MCE OCCURRED, (NOTE THS SECTOR IN 

I ERROR 11 OBTAINED i¥ §ACXIN§ Off | IECTOR), 

I NOTE THAT THE DATA BUFFER WHICH HAI WRITE 

ICHECKED II NOf ON A IICTOR BOUNDARY 

fCLIKE ISS» Sit WOUD ETC.), iUT II sew 

llICTORI & A rRACTlON (LIKE 100 WORD! ETC.) 

|WAS THE ENTIRE DATA SUFFEU 
fWRITE CHECXIDT 

i row the rkia m® rxwc 
i to si uied res doing 

|NRITE»CHECK ir THE REIT 
fOf THE DATA IUPTER 

»00 §@ NRT«GHX POR 

i reit op the surras 



WfBPV 



MD»11-DZRKHa, RKil-RKOB PBRPORMANCB EXERCIIER MACTU 3©Ci04SJ 

dzrxhg.pl 1 3s*&pp-7? 101 ii exerciier program 

.ibttl exerciier program 



0I»iJUN»77 I4SII fhm Sf 



2S#7 








2S68 








3S§9 








2570 








297! 








2572 








2573 








2574 


007772 


5044IS 




2S7S 


007774 


012700 


OOI10S 


2S7& 


01 0100 


005020 




2577 


010002 


020027 


001SSS 


2578 


01 On06 


0OU74 




2579 


01 OftlO 


105737 


0012S3 


2S80 


QlOoH 


00104S 




259 1 








2382 








2583 


01 0nl6 


00SO20 




2584 


010020 


020027 


002032 


2583 


010*24 


001374 




2386 








238? 


01 0a3S 


012700 


001SS4 


2SS@ 


01 Ofl32 


012701 


177704 


2389 


010036 


010120 




2590 


010^40 


010120 




2591 


010042 


050120 




2S92 








2993 


010044 


012700 


03S730 


2594 


01 0050 


012730 


1334SS 


259 S 


01 0054 


012720 


17SS43 


35 « 6 


OlOftIO 


012720 


001201 


2397 


010064 


012720 


0614§§ 


2S9S 


010070 


012720 


1 761 OS 




010074 


012720 


174311 


2600 


010100 


012720 


isiise 


2301 


010104 


012720 


0107S3 


2602 


O1OH0 


012720 


111147 


2603 


010114 


012720 


031070 


2S04 


010120 


012720 


1234S# 


2S0S 


010124 


012720 


17SS43 


2606 








2007 








2S0S 


0101 30 


001227 


177777 


260f 


0101 34 


001004 




2S10 


0101 16 


013737 


00001$ 


3111 








3613 


Of 01 44 


000403 




2S1S 


O1014& 


011717 


ooisis 


asi4 








36IS 








Mia 








3417 








2§1§ 


010«§4 


004737 




3410 








2§20 








2621 








3433 









?S1@IWINQ Of THE EXERCIIER PART Qf THE PROGRAM, 

flf THE PROGRAM W&§ REITARTED AT 2tO» THEN THE ITATIITICI CObbECTED 

?S0 F&P Willi, NOT BE CLEARED, 



BXRCIRl €0N S 



111 



oosois 



003004 401 



CMP 
BNg 
TITB 



CP 
CMP 
BNE 

MOV 
MQV 
M0¥ 



MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



IMC 
MS 
MOV 

Si 

nm 



•KEViRO 

(RO)* 
ROifKNHR 

i§ 

fRITRT 

31 



CRO)* 

RO r #fCMMD 
31 

mmm s m 
#»so 9 ^i 

Big (R0)+ 
Rli (R0)<» 

R% 9 £K0J* 

4fia)4B4#(R0)« 

•176B41#(R0)« 

• UOlvCRO)* 

«0a40Bf (RO)^ 

«1701OI«(RO)« 

#174S3g* ?K0H 

#IS76i0#CR0S# 

«>1O703»(RO)« 

»1)1I47»(R0)4> 

«3ao70i(R0)4> 

•174041r<RO)+ 



1^1 
40 

00O,*REP6NT 

S$ 

PCNTR»RBPCNT 



PCiCHDPRI 



iCbEAR UP THE fcOCUfSONi PROM 
l 9 My® fO 9 KWHR 9 CfXCLUDlDJ 



I REITARTED kf SSOf 

}YMf IAVE THE STATISTICS COLLECTED 
f UPTILL NOW r DONf CLEAR THEM 

I CLEAR LOCATIONS FROM *HECN* 
fW * PCMMD* (EXCLUDED) 



nmthhra, counts for mins# 

pSKCij XH11 



f INITIALIZE PT1 TO RANDOM NO, auue 
I USED if THE RANDOM NUMBER GENERATOR 
fSIT UP RANDOM NUMBfiR SElDi TO Bl 



jriRIT PAIIf 

ISMIWU It NOT 

| SET UP IHORT RIPITITION COUMT 
|POR fIRIT PAII, 



f REPETITION C0«Mf 9 WHEN THII COUNT GQSI 
ffO @# Sf e I CONSIDERED TO SE AM END Of PAiS 9 
fTKE MEXf PAII WILL iTARf WILL START RIGHT 
I PROM WHERE THE EXERCIIER LEFT OFS% 

ICMICII If WIT DltSVM AM PRESENT 
I If NOMif, QQ W $Wg SND Of PAIS 



MD«il«DM*Hl# PK|l»RK01 PgRf SSMANgii EXERCISER M4CY1 I 30 C 1046 ) 04-JUN-77 1 4 1 IS PA8| |g 
DMKHO,H1 3S»APR»77 IfliSI IX&BCISfR PSflflRAM 



HI! 














3114 






S77777 




MQV 


S177777; ®C§P) 




PI 01 B# 








CLW 


•<SP> 


















Ui b? 


01 3 f 4ft 


00 1 ill 




MQV 


BRVPRIi B C iPJ 




1 o < ? i 


004117 


098319 






PS| IISD1V 


IS If 


1 1 7ft 


001714 






f If 


(IP) + 


















1 0*)00 


0134 J? 


001330 




s^av 


(SP)** BRMAP 




1 ? 4 


012737 


000104 


001S33 


MQV 


Il04f CtfLMAP 


gill 


1 05 i 1 


011137 


013S17 


001S34 


MQV 


• U107 9 #fNMAP 


1&34 




013717 


031443 


001§li 


MQV 


§631 














ISli 


f 3933 


01 3700 


00101$ 




MOV 


NAXlftsRO 




j Of 3| 


i 61700 


OOIOSI 




iUI 


SAStBAiRO 


ISIS 


01 0?3§ 


U0OI4I 






CLC 






0) 0940 


001060 






%m 


m 
















1141 


010943 


011741 


177777 




MOV 


4177777»«(SP) 


3141 




001041 






CM 




1141 














?S44 


0109S0 


0S004S 






MOV 


R0f«(IP) 


3§4S 


010112 


004717 


OlSSil 




jsr 


»C# MIDIV 




©109l§ 


(JQS7I6 








(SP)* 


1147 














3648 


O101SO 


oostii 






snc 


(IP) 


3449 


01 0^§S 


013437 


OOlliO 




M0V 


(IP)«»IAMAP 



j PUT bOH DIVIDEND ON STACK 

iCLSAR HIGH DIVIDEND AND PUSH 

I XT ON ITACK 

|PU§H DIVISOR ON STACK 

f QQ TO THE 'DIVIDE' SUBROUTINE 

jDISCARD THE REMAINDER, QUOTIENT II 

I NOW ON TOP Or THE ITACK 

f SET MAPPING FACTOR POX DRIVE! 

I GET MAPPING PASTOR FOR CYLINDERS 

I GET MAPPING FACTOR FOR SECTORS 

I GET MAPPING FACTOR FOR FUNCTION 

ICOMPUTE THE MAXIMUM ALLOWABLE 
I WORD COUNT FOR BftfA TRANSFERS 

I CONVERT TO TOWS 

IPUT km DIVIDINB 8N STACK 

iCbiAR mm dividend m® push 
pit on ITACK 

| PUSH PSVISOR 9N STACK 
I GO TO THE 'DIVIDE' SUSRQUflMl 
fDSSCARS THI REMAINDER QUOTIENT II 
|NOW ON TOP OF THI STACK 

iiavc thi umm fhm% rm iui addreii 
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DZRKHG S P11 25-APR-77 10118 EXERCISER PROGRAM 

2650 | THE ENTIRE DISK (ALL DRIVES) IS WRITTEN WITH RANDOM PATTERNS, THE FIRST 

2651 | WORD OF EACH SECTOR GIVES THE NUMBER OF WORDS (3'S COMPLEMENT) WRITTEN IN 

2652 } THAT SECTORS. REST OF THE DATA WORDS FOR THE SECTOR ARE GENERATED USING 

2653 | THE ABSOLUTE DISK ADDRESS AS THE RANDOM SEED, 

2654 | IF THE PROGRAM WAS RESTARTED AT 210 THEN CHECK IF 8W 4 IS SET, IF IT 15 

2655 | THEN DO NOT REWRITE THE DISK WITH RANDOM PATTERNS , IF 5W 4 IS NOT SET THEN 

2656 j ALL THE DISKS (PRESENT) ARE WRITTEN WITH RANDOM PATTERNS, 

2657 



2658 


01 0^66 


105737 


001253 




WRDSKi 


TSTB 


FRSTRT 


f RESTARTED AT 310? 


2659 


01 072 


001 407 








BEG 


1$ 


| HQ 


2660 


0t0?74 


1 05037 


001253 






CLRi 


FRSTRT 


|YES| CLEAR THI REHT&Rf FLAG 


2661 


010100 


032777 


000020 


370632 




BIT 


$£W4?9SWR 


;SW 4 SET! 


2662 


01 0^06 


001401 








BEG 


1$ 


J NO 


2663 


010110 


000540 








BR 


BEgEKl 


; YES, DONT REWRITE ALL DISKS WITH 


2664 
















; RANDOM PATTERNS 


2665 


010112 


012737 


010330 


001110 


1S| 


MOV 


#3$;«LPgPR 


fLUP TO '2$' ON EROR, SW | SET1 


2666 


010120 


012702 


0012S4 






MOV 


#PDR»R2 


} POINTER TO DRIVE « 'S TABLE 


2667 


010124 


013703 


001264 






MOV 


DRVPRS,R3 


|# Or DRIVES PRESENT 


2668 


010130 


012700 


011410 




311 


MOV 


#4873, ,R0 


j NUMBER OF SECTORS PER DISK 


2669 


0)0134 


1 12201 








MOVB 


(R3)*»R1 


t GET THE FIRST AVAILABLE DRIVE 


2670 


01 0136 


042701 


177770 






BIC 


S177770,R1 


^POSITION THE BITS (18fl4»13) 


2671 


010142 


010137 


001502 






MOV 


R1,0DRV 




2672 


010146 


000241 








CLC 






2673 


010150 


006001 








ROR 






2674 


01 0152 


006001 








ROR 


Rl 




2675 


010154 


006001 








ROR 


Rl 




2676 


010156 


006001 








ROR 


Rl 




2677 
2678 


010160 


010177 


S70S44 






MOV 


Rl e #RKD& 


iSAsi disk kmmm 


2679 


01 0164 


013704 


0030S4 






MOV 


MAXBAf R4 


I CALCULATE MAXIMUM BUPPER 


2680 


010170 


163704 


002052 






SUB 


BASEBA,*4 




2681 


01 0174 


006204 








ASH 


M 


fCONVERT TO WORDS 


2682 


010176 


042704 


000377 






BIC 


#377»R4 


|KE1P ONLY HHOLE BLOCKS 


2683 


01 0402 


000304 








SWAB 


R4 


2684 


010104 


020427 


000014 






CMP 


R4,tl3 t 


1 MAK Of 13 SECTORS 


2685 


ei ono 


003402 








BLE 


3$ 


2686 


010*12 


012704 


000014 






MOV 






2687 
















2688 


010*16 


010401 






ISf 


MOV 


R4«ftl 




2689 


010120 


020400 








CMP 


R4,R0 




2690 


010422 


003401 








BLE 


41 




2691 


010424 


010001 








MOV 


RO, Rl 




2692 


010426 


000301 






411 


SWAB 


Rl 




2693 


010430 


005401 








NEG 


Rl 




2694 


010432 


010137 


010446 






MOV 


Rl,§$ 




2695 


010436 


010177 


170562 






MOV 


Rl* IR&WC 




2698 


010^42 


0Q4S37 


016704 






JSR 


RS,GEHBUF 


f GENERATE RANDOM DATA iUFIR 


2697 


010446 


000000 






s# i 


.WORD 







2698 

2699 


0104S0 


032514 








e WORD 


DBUF 


f STARTING ADDRES1 OF DAf A BUFER 


2700 


010452 


012777 


032S1*4 


170S4S 




MOV 


#DBUF» f RKBA 


| FROM THIS BUS ADDRESS 


2701 
2702 


01 0460 


012777 


000003 


170S34 




MOV 


#3*#RKC§ 


I WRITE, CIO 


2703 


010466 


104417 








CON 9 RDY 




|WAIT FOR CONTROL RDY 


2?04 


010470 


004737 


020112 






JSR 


PC,CHKCS 


J ANY ERROR? 


270S 


010474 


104001 








ERROR 


1 


| AN ERROR OCCURED WHILE DOING WRITE 



m^ti^w^Hn f rki i«rko5 performance exercisep macyi t iono46) o»»jun-77 hisi page to 

8MKH6 e P11 IS®AI»P®77 



3706 






9 s ? of 














II 1 fl 4 1 & 

y i y ■» i s 


03377? 




01 0104 


0O14SS 


27 I S 


0! 0106 


013700 


17 1 1 




001033 


it ii 


1 64 i 4 


10440! 


sill 




000411 


1 f 1 » 






ti 1 Jo 


w 1 ysw 8 ? 




Silt 


010164 


61 §74$ 


9f tl 


01 0170 


104491 


91 f i 


010^71 


00 i 




01 0173 


000 


a r 4f & 






ana 


0! 017 4 


104401 


If 13 


010*00 


164407 


« ' «* 


01 OiOi 


110406 


9?§S 


oi oloi 


003104 


« f «•» 








OS 089S 


0AS103 


1721 


OlOilO 


001 §47 


Hit 






sue 






37 Ji 






37ia 


010411 


011777 


3711 


O10SI9 


00I46S 


1734 






I7SS 






S7SI 


010S3I 


011777 


1737 
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000400 


170414 


SIT 


ISI? Si $§W 






Pi @ 


II 


00037/ 




iff 


•177#R0 






§Ni 


IS 






f YPf 


,§f f 




IS 


S4$ 




Si" 




^fip™™®®™*™**®® ft «s i 














MOV 


QDRVf«<sp) 






TYP0I 








••YK 


1 






s iYTl 


9 


90IISS 




TYPE 


i SCRIP 




ill 


CKSSfR 








SUB 


R4 p i@ 






•Of 


Sg 



)0N THE D1IK, YOU ARE ADVISED YO U|t 

pSAHC AND DYNAMIC TESTS. 

ITYM CURRENT §TAfU| 



mtypb Aiexs strxno 

fOET OVBR THE AMU 
RANDOM PATTERN, DRXVS / 



iCHEcx por soptmarb m chanob 

f DECREMENT SECfOR COUNT 

dec m imorb drxvbb to dot 

INI |g 

iir in i la sei# enable m Ijinb eww ans initialise m\mi, 

0000I8 I703S§ ibobxii in g|pi| Siil ^HMJ h ^J^.M^ 



$Mi%h mm* present! 

iir net* skip 8 Hgtisir knim it 
inot present ms should hot si set 



jOTHgRWlii* A TIMEOUT NXXjL igCUSS® 
§0010© 173434 HI • BXTl«SXNM fINASLI SWStL CLOCK 

isbrvxcsd At priority 7 ckmrvs) 
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2738 
2739 
2740 
2741 
2742 
2743 
2744 
274S 
2746 
2747 
2748 
2749 
2730 
27S1 
27S2 
2733 
2734 
2788 
2756 
37S7 
37SS 
275* 
2760 
S7Si 
1762 
3761 
2764 
3761 
9766 
3767 
3768 
2769 
3770 
3771 
3773 
1773 
3774 
377S 
I77S 
1777 
3778 
277* 
8710 
I7SI 
37S3 
3711 

1714 
I7SS 
3786 

3717 
I78S 
27lf 
3790 
27fi 
1713 
3711 



010630 
010832 
010636 
010*42 
010A44 



104416 
012706 
00S737 
001402 

004737 



010660 

010634 
010660 

010462 

010366 
010870 
G10&74 

010762 
010733 
010764 

010770 
010774 
01O776 
011900 
O11O04 
011006 
011M3 



011014 
011120 
011034 
011036 
011010 
011033 
01 11S4 



013746 
013746 
000003 

00S737 
001040 

104401 
000433 



000000 
000137 

013700 
006730 
100006 

030037 
001373 
004737 

00O4S0 



013700 
033710 
001404 

001710 
100403 
108710 

I001i§ 



OlXftH QOS710 



OlifllO 
Of Sa44 



011041 

ouftsa 



030017 
OOISII 



001100 

001364 



014500 



001244 
010662 



001314 
010676 

00S17I 
0OSS0I 

oeisis 

014100 



001101 
010000 



OOiSii 



j THE PROGRAM II 00SM6 fO LOOP fO TNXB POIHT AT THB END Of h PASS 8 

U CON fl MM? iCStlAR EVSRYTHIN6 IH DRIVES 

MOV »STAC!C;IF % RESET STACK 

TST DRVPRI %mt DRIVES IsEFT IM •YBTBNT 

;go mmmm s conhamd§ wm w% % 



! CHECK IF THERE li ANT UHrSMlSHED COMMAND IN THI @# WAITING TO M mmmm s 
I IT THERE Xi MONi$ 30 TO THE *@fH8R@" AND @1N1RAT1 § RfSUIST® (COHMAN0@)i 
I AND PUT THEN IN THE Q, If THERE IS AN UNFINISHED COMMAND, PIND" OUT If 
I THERE IS A PRIORITY COMMAMD TO IE EXSCUTED lMMEDIATiL¥ 8 



QNNQBRt MOV 

MOV 
RfX 

III fSf 



!!#§$! 
§4SI 



list 
Sis 



ill 
SSl 



111 



PPRLVti»«(iP) 



DRVPRS 

i$ 

#si$ 

64$ 



i new psw i mtm PRIORITY 

fSlTURN PC ••••«•••••••••• 



I ANY 0RIVSI m IflflMf 

iiffpi Aicxi minQ 

|f€BT OVER THE ASCII 



9 AS«S «l|Mia>/HAI,?XIIQ « PRESS CONTINUE TO RBBTART At •300«/<il><l2><iaP<12P 



HALT 
JHP 



fSf 
Bfh 
CMP 
SN1 
tllR 

m 



•IT 

MQ 
fSf 
SMI 
fill 

m 

fit 

CHP 
INI 



•TARY 

IKEYiie 

a"* 

RO#fKIY«ao 

$$ 



#KiY#S0 

• •ITtBf CMS 

II 
(RO? 

1$ 

mlnm 

CROI* 

ROilKBYi^ao 

Si 



i km uiriNSi 

IXN 



COHMARO 



fSf M0f # 00 OBNBRATB I M§SI 6@MMAN@§ 



f ANY HION MXOftXTY OONNAND IN 

itis 

I IN KliUflOU? 

|MO| US PROCBM MIOH PRXORXTY 

$m%m THB 1NTSSI © 



I PINO OUT IP TNBRB II A WRSM @H|gK fUHifSM TO SI OONB IMHISlAfttY APYER 
9 A WRITS? THAT MAS 0QNI PRIVXOUBIiY. 



0QS7I7 00I4SI 
100040 



TST 
•Pb 



NCPLO 



i Si mm chucii to fohim 

fNRXTBf If NOT, IRASfCH 
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2794 


01 1 05 4 


01 3700 


001456 






«L f u*» i Hv 


3795 


n 1 1 ft&o 


4 2 7 00 


177400 




BIC 


aiiitnn.iin 

1 17 ( *vO» HO 


3796 














2797 


yl 1 aS4 


0160U1 


002032 




MOV 


PC Mwl) C HO J # Mi 


279S 


O 1 107 


0627 00 


001306 




ADD 


• KE Y i R0 


2799 














280ft 














2801 


(11 1*7 4 


237 61 


A A A 9 


VUVvVf 


CMP 


92y2(Rl) 


2802 


01 1102 








Bf!Q 


7 $ 


2803 


01 1 1 04 


01 1037 






MOV 




«!! «« 


] ] 1 J ^ 






001164 


MOV 


3 t Hi 1 ftREGl 


2B0S 


011110 








ERROR 


27 


2806 














2807 














2808 














28Q9 














2810 














281 1 














2812 














3813 














2814 


1 1 1 20 


009037 






CLR 


WCFLG 


28 1 S 


01 1 1 24 


033710 


I 00000 






URTTl K . f PA 1 
ff O J. 1 1 9 f V **U / 


2816 


01 1 < 3 


0006* f 






BR 




28 1 7 


01H32 


01 2761 




uuuuv « / • » 


MOV 


f? S3 S s(i>S/ 


2818 
















1 


042710 


174340 




BIS 


Si'74140» CHOI 


2820 














2821 


01 1 1 44 


032710 


000100 




BIS 


«BXT6 f (R0) 


2822 














2823 


01 1 1 SO 


000137 


011612 




JMP 


EXCUT 


2824 














2825 















I GET WC FLAG 

1 LOWER BYTE CONTAINS KEYIX2 (OfFiET FROM 
I KEY) i OF THE WRITS FUNCTION 
1 GET POINTER 

j FROM ADDRESS OF THE KEY 

I WHICH WAS USED FOR PREVIOUS 

t WRITE 

jCHECK THAT THIS FUNCTION 

jWAS A WRITS 

I GET KEY CONTENTS 

I GET THE FUNCTION INDICATED BY THIS KEY 

I IF NOTi ERROR 

I BEFORE DOING A WRITE CHECK A WRITE IS 

I ALWAYS DONE , OCCURANCE Of THIi ERROR 

j INDICATES THAT SOMEHOW AN ATTEMPT IS BEING 

I MADE TO DO WRITE CHECK BEFORE A WRITE 10 

I PERFORMED, THE KEY IN ERROR MISS&Qi WAS 

I THE ONI WHICH GAVE RISE TO THIS ATTEMPT. 

I THE FUNCTION CODS SI THE FUNCTION ASSOSCIATED 

I WITH THAT KEY 

I ABORT THIS WRITE CHECK 



| SIT UP BITS FOR WRT CHK 
I NOW 

I CLEAR OUT TH1 UNNECESSARY 
I FLAGS FROM THE KEY 
I SET FLAG FOR WRITS CHECK, FOR 
I THIS KEY 



I NO HIGH PRIORITY COMMAND IN Q 
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2826 








iNO HIGH PRIORITY COMMAND WAS 


FOUND IN THE Q 9 FIND OUT THE FIRST AVAILABLE 


2827 








jCOMMANC 


IN THE 


Q, FOR EXECUTION. 


2828 


0tH54 


003000 




CHFAFNf 


CLR 


RO 


I WAIT FOR ANY IMMEDIATE XNTtRUPT 


2829 


01 1156 


005046 






CLR 




fNlW P$W 


2830 


011160 


012746 


011166 




MOV 




f RETURN FOR RTI 


2831 


01 1164 


000002 






RTI 






2832 
















2833 
















2814 


Oil 1 66 


1O5200 




111 


INCB 






283S 


01 1170 


001376 






BN1 






28 36 


011172 


013746 


001244 




MOV 


PPRLVL,-(8P) 


|NSW P8W« LOCK OUT CPU 


2837 


01 H76 


012746 


011204 




MOV 




) RETURN FOR RTI ■••######♦##•# 


2838 


011902 


0O0002 






RTI 






2839 
















2840 
















2841 


01 1904 


012700 


001306 


asi 


MOV 


iXEYfRO 




2842 


011910 


005710 




GHli 


TSf 


(ROS 


I UNFINISHED COMMANOf 


2843 


051912 


100436 






BMI 


CH2 




2844 


011914 


105710 






T8TB 


(RO) 


}XH PROGHSiSf 


2845 


011916 


100434 






SMI 


CH| 


2846 


0H920 


011001 






MOV 


(RO)iRl 




2847 


011922 


042701 


171770 




BIC 


li77770»Rt 




2848 


01 1926 


103761 


001436 




T8TB 


BUSY(Ri) 


|1S fHSi DRIVE SUSYf 


2849 


01 1932 


100426 






BMI 


CH2 




2830 


Of 1934 


105761 


00S436 




TSTB 


POS(Ri) 


|HA§ THIS DRIVE EflN FOlIfXONCD 


2891 














If Qn ANY Of HER COMMAND, If YSS* 


2852 














piOPs ir MOT; pnoeiiD 


2833 


01 1940 


001033 






BNE 




2814 
















28S5 














ICHECK IF THERE IS AY OTHER COMMAND 


2856 


01 1942 


010009 






MOV 




fON A DR1VI THAT IS NOT THC §AMI 


2857 














IAS THE PREVIOUS DRIVE, THII COMMAND 


38S8 


0H944 


000414 






M 




j SHOULD NOT SE IN PR0GR1IS 


1839 














I AND SHOULD NOT HAVE BEEN COMPLETED 


2860 


OS 1946 


005712 




i«i 


TST 


(R2) 


lUnriNisHED command? 


2861 


011950 


100412 






BMI 


2$ 




2862 


01 1952 


105712 






TSTB 


(R2) 


tin PROGRESS? 


2863 


011954 


100410 






BMI 


n 




2864 


011956 


011203 






MOV 


(R2)*RS 




2865 


01 1960 


042703 


177770 




BIC 


#177770, R3 




2866 


011964 


105763 


001436 




TSTB 


BU3Y(R3) 


ixs thi mim BUSY? 


2867 


011970 


100402 






BMI 


2$ 




2868 


011972 


020301 






CMP 


RJ,Rl 


|IS THIS COMMAND 013 THI SAME DRIVE? 


2869 


011974 


001447 






BEQ 


POSTIOM 


|If YE8» GO AND POSITION THE COMMAND 


2870 














f POINTED TO BY RO* (BECAUSE THERE IS 


2871 














jONE MORE COMMAND THAT CAN BE PERFORMED 


2872 














fON THE SAME DRIVE) 


2873 


01 1976 


005722 




2S| 


TSf 


(P2>* 


f CHECK REST OF THE Q 


2874 


oinoo 


020227 


001126 




CMP 


R2*«E¥*i0 




2875 


0U104 


001360 






BNS 


It 




2876 














flf THERE HAS NO IMCUTAILS COMMAND 


2877 


01 1106 


000470 






BP 


EXNSK 


yON ANY OTHER DRIVE; THEN IMPUTE 


2878 














yCOMMAND POINTED TO BY RO 


2879 














2880 


01 1110 


005720 




CH2i 


1ST 


(R0) + 


1 CHECK ENTIRE @ 


2881 


011112 


020027 


001326 




CMP 


R0,#K1¥*20 





MD«i 1 -DgP^Hn, P^!i»BK1S PERFORMANCE EXERCISER M&CY1I 30( 1046) 06-JUN-77 1 4s 53 PAGE 64 
DZP*HG 9 P1 1 I u 3 i 9 EXERCISER PROGRAM 



2882 
2RR3 

2884 
2885 
2fl§S 
2887 
2R88 
2889 
2890 
2891 
2R92 
3S03 
3894 
2@9S 
2896 
289? 
2890 
2899 
2900 
290! 
3902 
2901 
2904 
290S 
2906 
390? 
390S 
2909 
2910 
291i 
2912 
2913 
2914 
29 IS 
2916 
291? 
2918 
2919 
2930 
2921 
2932 
2923 
2924 
1935 
292S 
292? 
292® 
2929 
2930 
2931 
2933 
J9 31 
2934 
393S 

391? 



011116 001334 



ft! 1120 

OS! 124 
01 1126 

01 1 132 
01 1*16 

01 1142 
01 1-944 
011*46 
011150 
011152 
01 1154 
01 1156 
01 1162 
01 1166 
011170 

01M74 
01 1176 

Oi 1 402 

Oil -504 



I NO (UNPOaiTIONEDj EXECUTABLE COMMAND HAS FOUND IN THE Q s CHECK If THERE 
|X5 ANY POilTIOHSD COMMAND IN THE Q, WAITING TO SE EXECUTED 9 



011*14 

OH *2n 



01 1 122 

Of 1426 
01 1 432 
01 1 140 
015 «42 
011446 
01 1 480 
01 1 *50 
01M54 
Of I486 
011 *64 



1 0577 ? 


i §7676 






IRKCS 


I if iH& uun 1 KUtiuEK I ® BUST Ou TO 


1 U0402 






0W I 




l STATUS AND U1TT rnn TMfi*BBil£ii<il 


00137 


214 3 6 




JMp 


STATUS 


• IS" TUB! ^TlMToni.r.fo t ■ un* nit • v tptun 


0S2700 


001306 


111 


MOV 


*KRY»R0 


f&N¥ POSITIONED COMMAND AMD EXECUTE 


032710 


000020 


2*1 


BIT 


fSIT4#Cft03 




001414 






BSO 


|0 


• IT 


00571 






TUT 


t fSn 1 
% J 


, SijaSfi; HUBS" f r< fiK&!&wn sniair'TiTnMH'n 


100412 






1MX 


31 




105710 






TSTS 


CS*03 


f COMMAND IS UNFINXiHED* 


100410 






SMI 


3$ 


|IT IS NOT IN PROGRESS, 


011001 






MOV 


CR0)*$i 


1 THE DRIVE IS NOT IN SUSY 


042701 


177770 




BIC 


#177770«R1 




105761 


001416 




Tifl 


BUSYCR1) 




100402 






SMI 


IS 




000137 


011612 




JMP 


EXCUT 


J GO 1X1CUTI THE COMMONS If THE 


00S710 




SSf 


fSf 




f ABOVE CONDITIONS API SATISFIED 








gHP 


Ro»tKEY*ao 


fCHICK ALL COMMANDS IN @ 


0013SS 






ME 


at 




000137 


02I43S 




JMP 


STATUS 








fENTER 


HERE IF 


THERE IS A PRIORITY COMMAND TO if EXECUTED. 


000137 


011812 


pricmni 


JMP 


EXCUT 


?QS EXECUTE N0N«8EEK COMMAMB, 






fENTER 


THIi If 


& COMMAND IS TO 


SI PREPOSITIONED (BEFORE EXECUTING A 



0327S0 
001333 



00473? 
004737 

012777 
00S046 
012746 
000002 

50S73? 
00177S 
012777 
000137 



000030 



012164 
02G3SO 
OOOUl 

011410 



013286 
01 1184 



167962 



167SS4 



fFUNCTlON) 



POiTIOMl SIT 
BNS 



am 

JSR 

MOV 
CLS 
HOV 
RTI 



1SS 



TITS 

SE§ 

MOV 



•BIT4»(R0) 
CH2 



PC,P0SK 
PC«POSCMND 
• lU'SMXCS 

»CSP) 
«llf"(SP) 



IMTifL 
,-4 

#INf HNDtfSWKVffiC 

6HPAFM 



f ALREADY POSIfSOMSDf 

|¥Ei, 00 SACK AND CHECK SF KMT Of THE 
I COMMANDS IN THE Q hM TO IE POSITIONED 

1 00 CHECK* £ SIT UP FLA@S 

?IAVE SNFO ASOUf PRESENT & PMf COMAND 

f POSITION THE COMMAND 

fNEH PIM ? DP9P PHS0RIT¥ 

i return ro& rti 



I NAIT FOE INTERRUPT 

>RE*ESTABLISH RK INTERRUPT VICTOR 

fGO SACK AND CHECK If ANY COMMANDS ¥0 M 

fP0Slfi0NIB Qn EXECUTED 



Of 1 470 
01 1 474 
01 1100 
0! HO? 
01H04 
01 l^OS 

oi ii to 

Ot 1*113 
01 1114 
01 1H20 

01 H34 



001101 
000030 



013701 
033711 

001412 

001711 
100410 
108711 

1O040S 
011103 

041701 177770 
101713 001426 
10000S 



EXNSKl 

ISl 
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3911 
2939 
2940 
3941 
2942 
2943 
2144 
294S 
2946 
294? 
2941 
2941 
29S0 
3§S1 
29S^ 
29S3 

39SS 
%W 
2S87 
SMS 
2«9« 
2§&0 
Mi 

3fS3 
19S4 
2SS§ 
2®SS 
2M7 
396S 
29ft9 
2970 
2971 
2972 
2971 
2974 
2971 
291& 
2177 
2§7S 
29?f 
3980 
3981 



MACYU I0C104I) 

mmmn 



Iff 

II@ 

fit 

SMS 

fill 

SMS 

MQV 

BIC 

fSfi 

BPL 



0U176 O0177S 
011600 01277? 0S33Si 167412 
011S06 013700 00IS3S 



m^m^Ti suss paoe si 

IIS THERE ANY POSITIONED COMMAND III 
I THE i 9 ftm OUT* If THERE li 
I ONE EXECUTE THE POSITIONED COMMANDi 
I BUT FIRST POSITION THE COMMAND CK1YS 
I POINTED TO BY RO 



•KET'Rl 

it 

CRD 

it 

(MD 

as 

CRD#R8 
»177770#R3 

susfCiii 

ss 



0U126 
01 1130 

0ll 9 S14 


00S7J1 
010S17 
0011I7 


001111 


isi 


fit 

BNE 


(RD* 

Rl««KSY«aO 

II 


011136 


0004IS 






m 


EXCUT 


011140 


010137 


OOilii 


111 


M8¥ 


RltSAVKEV 


01 1144 


004737 


012164 




JSR 


PCfPOSX 


OS 1190 
01 1184 

011^63 
01 1164 
OI 1170 


004717 
013777 

001041 
012746 
000001 


0I01S0 
000111 

011873 


1S7440 


JSft 

MOV 
CLR 

MOV 

Ml 


•111»SRKCS 

-CSPJ 
»4S»*(SP3 


011172 


30S7S7 


001S3S 


4S1 


fifi 


IRTirL 



» heads mmmmm 

JUNCTION COMPLETBDT 
lYf§# iHANCH 

tfmmm in prooresst 



IDRIVE BUSYf 

tCHECK hhh COMMANDS IN Q 



|N0 POSITIONED COMMAND MAI 
pf@VH9 IN THE 0. §9 EXECUTE 
fCOMMAND P0SNT1D TO BY »© 



|AN ALREADY POSITIONED 6QMMAMD MAS 
SUM fOUNDg 

SAVi POINTER TO THE COMMAND(KEY) 



NOV 
MOV 



9lNTHND f SRKVEC 
8AVXEY,R0 



$mim Si ALRIADY F0SITION1D 
fOO AMD POSITION THE COMMAND(KEY) 
fPOINTID TO SY RO 

ISAV1 INFO ABOUT P&Sf * PWSINT COMAND 

imm f lOEf GO 

f ALLOW flSST INTERRUPT 

fiiTUiM FOU m ###•#•#♦## 



I ©ID INTERRUPT OCCUPf 
|BR IF NOT 

liiESTAiLlSH INTERRUPT ADDRISS 
y RESTORE THE SAVED POINTER TO KEY 
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29«2 












9983 












29M 












2983 


01 1M2 


011001 


SXCUTi 


mcjv 


(RO)'Rl 


7986 


01 1M * 


042701 


177770 


H1C 


#177770, Rl 


7987 


M 1420 


008710 




TST 


(ROJ 


2986 


011422 


100004 




BPL 


1$ 


2919 


01 i 524 


01 1037 


001162 


MOV 


CR0)# 


2990 


01 1*30 


104030 




ERROR 


30 


2991 












299? 












2993 












2994 


0H832 


000S12 




IP 


ASRfl 


2998 


01 1*34 


108710 


IS1 


T8TI 


(R0> 


2993 


01 1*36 


100004 




BPL 


31 


2997 


0M&4O 


011037 


001162 


MOV 


(80),$RKG0 


3998 


01 1$44 


104030 




ERROR 


30 


2999 












3000 


01 i§46 


000104 




m 




3001 












3002 












3003 












3004 


OH3S0 


106761 


00141$ Its 


TSTI 


BUSY(Rl) 


300S 


01 14S4 


100004 




BPL 


4$ 


3006 


01 1456 


010U7 


00I1S3 


MOV 




3007 


011*62 


104002 




ERROR 


3 


300ft 


01 1664 


000470 




BP 


abrt 


3009 












3010 












3011 












3012 












3013 












3014 


Q1 1666 


105777 


167330 4$ § 


T8TB 


9RKCS 


3015 


01 1»72 


100404 




BMI 


5$ 


3016 


011674 


004737 


022032 


JSR 


PC,GT4RG 


3017 


01 1700 


104003 




ERROR 


3 


3018 


01 1702 


000461 




BR 


ABRT 


3019 












3020 












3021 


011704 


011002 


S$l 


MOV 


(R0),R2 


3022 


01 1706 


000302 




SWAB 


R2 


3023 


011710 


042702 


177770 


BIC 


#177770, R2 


3024 


011714 


006302 




ASL 


R2 


3025 


0U716 


010204 




MOV 


R2»R4 


3026 


01 1720 


016205 


002032 


MOV 


PCMND(R2),RS 


3027 












3028 


01 1724 


011577 


167300 


MOV 


(R3)« SRKDA 


3029 












3030 


01 1730 


032777 


000100 167260 


BIT 


#RWS,tRKDS 


3031 


01 1736 


001 006 




BNE 


6$ 


3032 


01 1740 


010137 


001250 


MOV 


Rl , SRDRV 


3033 


01 1744 


004737 


022032 


JSR 


PC,GT4RG 


3034 


01 1750 


5 04004 




ERROR 


4 


3035 


01 1 752 


000435 




BR 


ABRT 


3036 












3037 













{EXECUTE TNE COMMAND POINTED TO 1Y SO 
»R0 CONTAIN! THE POINTER TO THE 
{COMMAND KEY 
| GET DRIVE NO 

fTHIg COMMAND UNFINISHED? 

{ GET KEY 

? ST NOT, ERROR 

{ AN ATTEMPT WAS MADE TO REEXECUTE A CUMMAND 
f THAT HAS ALREADY SWN EKECUffB SiFORg 9 
ICON DRIVE ?'JD, GIVEN IN IStROR MESSAGE) 

|IS If IN PSSQGRISHI 

I GET KEY 

i ir yss, mm% 

{AN AffSMPf WAI MM TO UllKlgUfl A COMMAND 
I THAT II IN PROSREIS CBN 9RIVI NO, QSVlN 
I IN EROr MgfAQSj 

? 2® THE DRIVE SUIYf 

I GET DRIVE I 

»«iui?* flag for tHi mtn (contained 

I IN Rl) SI SET, INDICATING THAT THE DKIVE 
|IS 'BUSY' AND ENGAGED IN AN ACTIVITY, 
{STILL AN ATTEMPT WAS MADE TO INITIATE 
|A FUNCTION ON THIS DRIVE B THIS IS AN 
; UNEXCEPTED ERROR CONDITION, 

I CONTROL READY SET! 
| YES 

{GET RKCS, ER, D8, DA 

^CONTROL READY IS NOT SET, THIS IS AN 
I UNEXPECTED ERROR CONDITION AT THIS 
I POINT OF EXECUTION, CONTROL SHOULD 
t BE NORMALLY READY, 



{ FORM THE ADDRESS OF THE 
{ PARAMETER LIST FOR THIS 
{COMMAND 



{ GET THE FIRST ITEM FROM LIST 

I DISK ADDRIS 
{R/W/S RDY SET? 

{YES 

{ GET DRIVE t, FOR TYPING SERIAL • 
fGlT RKCS, ER, OS, DA 
{R/W/S RDY IS NOT SET FOR THE DRIVE, 
{ A (NON-SEEK) FUNCTION WAS SUPPOSED 
{TO BE EXECUTED ON THIS DRIVE, THIS IS 
| AM UNEXPECTED ERROR CONDITIONS AT TH?S 
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3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 


01 1754 


016503 


000002 




6$8 


MOV 


2(RS),R3 


{POINT OF EXECUTION R/W/8 RDY SHOULD 
|SE NORMALLY SET, 

{ GET FUNCTION TO 8E DONE 


011760 
01 1764 


122703 
001437 


000002 






CMPB 
BEO 


#3,R3 

WRFNC 


{IS IT A WRITE FUNCTION? 

{YfSI, IT IS WRITE 

{IT'S NOT A WRITE FUNCTION 


3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 


0U766 
011772 
01 1776 
01 2n04 


016503 
052703 
016577 
016577 


000002 
000501 
000004 
000006 


167220 
167214 


NWRFNCi 


MOV 
BIS 
MOV 
MOV 


I501'R3 

4(RS),»RKWC 
8(R5),8RKM 


{GET FUNCTION TO 11 DONE 
}SIT 88E,IDE,G0 §IT§ 
{ GET WORD COUNT 
{ GET BUS ADDRESS 


01 2012 


004737 


020372 






JSR 


PC,FNCMND 


{ SAVE INFO ABOUT PAS? & PftlSWST COMAND 


01 201 6 

012022 
012026 

012032 
012036 
012042 


010377 

052710 

052704 

110461 
110437 
000137 


167200 

000200 
000200 

001426 
001534 
021436 






MOV 

BIS 

BIS 

MOVB 

MOVB 
JMP 


R3,9RKCS 

#BlT?*(R0) 
#BIT?jR4 

R4,BUSY(R1) 
R4, INTFLO 
STATUS 


{ SET 8SE,IDE, FUNCTION, GO 

{SET FLAG INDICATING FUNCTION 
{IN PROGRESS 

{R4 C0NTAIN8 OFFSET TO THE COMMAND KEY 
{(FROM 'KEY') BITS 0-3, BIT 7 IS SET 
{ SET FLAG INDICATING DRIVE BUSY 
{ SET FLAG FOR INTERUPT USE 


012O46 
Ol2o52 

012^36 
012060 


004737 
004737 
000240 
000137 


014426 

016540 

0106S0 




ASRTl 
ABRTH 


JSR 
JSR 
NOP 

JMP 


PC,DRV&BT 
PCCHKDRV 

QMMGIR 


I ABORT THI FUNCTION 

{GO CHICK, BRIVI IRRQfW 
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301? 








loss 








1069 


1 206 4 


OlSf 37 


000004 


3070 


012*79 


oi&iif 


300003 


SOf 4 


01 21 00 


0O4S37 


01&704 


3072 


oi a i 04 


000000 




sots 


01110$ 


000000 




1074 


0191 10 


0S9703 


000101 


1071 


013114 


(H1777 


019104 


3071 


019192 


011777 


019101 


S077 


OllilO 


004717 


0I0S71 


307S 








1071 


0I91S4 


010377 


1I70S1 


10SO 


019140 


099710 




SOU 


019144 


099704 


000900 


1019 








30S3 


0191B0 


11041! 


mm 


1014 


oiaii4 


110497 


001SI4 


SOU 








soas 








MS7 


019U0 


000117 


0S14II 



111 

an 



MQV 
MOV 

4m 
,word 

Sli 
MOV 
MOV 

M 

HOV 

Sli 
Big 

H8VI 



jmp 



4CRIM9 

ItRShSi 

riiOEniup 

o 
e 

hoi**) 
ibibmwc 



iPNCMNO 

114* XNTPLO 

SMfUi 



iths function n m executed is a 

|WRXTE FUNCTION 

iqet t or wordi to u written 

lOKT if&RTSNG SA QP BUPPER 

i oo oenerate iupper 

?savi • or mm$ 

iiave iMfiH@ ius addreii or bupper 
»|ET xde and §0 1ST 

i§if moid count 
»iet sy§ addiei* 

flAVC XNPO ABOUT PAST 1 PREIEHT 

t nsyg nrxteiXdeiOo 

fill PLAO ZNOXCATXNO PUNCTXON U 

hit fhh§ sndioatxno drive mm 
iiif plao mn xnteiupt usi 

$M CONTAIN! 0PPIET TO TMI COMMAND Hit 
| (PROM Slfl iff f II Sit 
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sxercxi 


m PROGRAM 


3098 


012164 


011001 






POSKI 


MOV 


CROJ^Rl 


3009 


012166 


042701 


177770 






SIC 


#1T7770*RS 


3090 


01 21 72 


105761 


001426 






T8TB 


8U8YCRI) 


3091 


012176 


1O0004 








BPL 


IS 


3093 


012700 


010137 


001162 






MOV 


R!*$RI€0 


3093 


012904 


104002 








ERROR 


2 


3094 


012906 


000470 








§R 


7S 


309S 
















3096 
















3097 
















3098 
















3099 


012710 


105777 


167006 




iSS 


Tiff 


IRKC! 


3100 


012914 


100404 








mi 


3$ 


3101 


012716 


004737 


031032 






JAR 


?C # @T«@ 


3102 


012922 


104003 










1 


3103 


012924 


000434 








BR 


m 


1104 
















3103 
















3106 


012?26 


011002 






1SS 


MOV 


CR0>»*2 


3107 


012930 


000302 








§WA1 


m 


3108 


012932 


042702 


177770 






BXC 


#177770»R2 


3109 


012736 


006302 








ASL 


R9 


3110 


012940 


016203 


003032 






MOV 


PCMND(R2)»*J 


3111 


012944 


011377 


166760 






MOV 


<R33*iRR0& 


3112 


012950 


032777 


000100 


1SS740 




BIT 


mm s %mm ■ 


3113 


012956 


001006 








INS 


n 


3114 


012960 


010137 


001250 






MOV 


Rl | BRORV 


31 IS 


012964 


004737 


022032 






JSR 


PC?«4RG 


3116 


012970 


104004 








ERROR 


4 


311? 


012972 


000431 








m 


iS 


3118 
















3119 
















3120 
















3131 
















3122 


0S2974 


110261 


00143§ 




lis 


MOVS 






012100 


1S2761 


000200 


00I42S 




§111 


• *XT7».lll!yCRl) 


3124 


012106 


032710 


000010 






EXT 


#ilM,CR0J 


3125 


012112 


001006 








Iff! 


41 


3123 


012114 


119761 


000377 


90S43S 




MOVB 


#377?POSCRIS 


3127 


013122 


052710 


000020 






§10 


#SIT4*£R@$ 


3128 


012126 


000403 








m 


i$ 


3129 


012130 


052710 


000200 




4S1 


§i§ 


#§ST7*CR03 


3130 
















3131 


013114 


012777 


011376 


liiSTi 


i$S 


MOV 


fiNTUKtiiixvEC 


3132 


019142 


013777 


001244 


i§§§72 




MOV 


PPRLVLflftXBTAT 


3133 


0191S0 


101037 


OOiiii 






club 


XHfiPL 


3114 


0121S4 


000207 








MS 


pc 


ins 
















3131 


013111 


004737 


014494 




ifl 


ji* 


PCfDRVABT 


HIT 


019949 


004737 










PCfCHKORV 


S13i 


0121SS 


000240 








mp 




3139 


012170 


008736 






Til 


TST 


CIP>* 


3140 


012172 


000117 


0I0IS0 






JMP 


qmnoer 



fiNZTXAL mEmim mtm w dozno 

JPQSXTIOMMQ COMMAND P0SHT1B TO BY RO 
I DRIVE iUSYf 

$m DRXVS S POR WHICH s iUI¥ s IS SET 
I'BUfY* PLAO POR THE DRIVE (CONTAINED 
7 IN Rl) II BETi INDICATING THAT THE DRIVE 
f 18 'BUBY* AND ENOAOED IN AN ACTIVITY; 
I8TILL m ATTEMff m$ MADE TO INITIATE 
fPOSITIONINQN OH THIS DRIV£ 3 fHSi I§ M 
lUMSXCgWD ERROR CONOXTXON, 
I CONTROL READf SIT! 
I YES 

>OET RSCCS; 1R; OS; DA 

{CONTROL READY If NOT S£f 9 fHSi SS M 
; UNEXPECTED ®mm CONDITION AT THIB 
f POINT OF EXECUTION f CONTROL SHOULD 
I BE NORMALLY READY, 



fitARTiMO mm or conmamp tails 

lR/N/1 ROY Siff 
IY1S 

f GET DRIVE l s FOR TYPIi® SIRIAL # 
f GET Mgg; 1R; M$ DA 

lR/N/8 R0Y XI NOT Iff FOR THE DRIVE , A 
I (P08ITI0NXNG) S1IK WAS BUPPOBED TO IE 
|BI IXICUT1D ON THIS DRIVE® THlI IS 
f AN UNEXPECTED ERROR CONDITION, AT TMIB 

f POINT OF 1X1CUTSOM R/W/S RDY SHOULD 

}U NORMALLY §IT S 

I SET PLAG SHDXCAf IN@ SRSVI BUIY 



COMNM0 



tilt fhh§ imtcmme wis dkivs pofitsoiii 

Silt fhM 1MB1CATIM6 THS1 COMM&MD 

ffOilTXOMIB, ggf PbAO INOICATXNO 
I PUNCTXON in fRS@RI§i 
| SET Uf RSU VICTOR 
yPilt QM IITiRRUPT 

fCMAR PLAO IMDICAf IMS • MflRRUff 
I 



» ABOUT TMB PUNCTXON 

1 00 CHECKr DRIVE ERROR! 

ffQf TNE RETURN ADDREII 
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3Ht 
142 
14 
14 
143 
146 
14 
14 
14 
15 
IS 
13 
IS 
15 
1S5 
156 
IS 
IS 
IS 
16 
16 
16 
16 
16 
165 
166 
16 
16 
16 
1 
1 
1 
1 
1 



t AFTEP ISSUING A SEEK FOR POSITIONING* AN INTERRUPT IB ALLLOWED TO f &&I 
j»PLACE. THIS HANDLFR SERVICES THF FIRST INTERRUPT, WHICH OCCURS AS A RESULT 
jOF THE SEEK BEING ACCEPTED, 



01 2176 
01 2102 



012*10 

012^14 



0UU6 
012424 

012*26 



105237 001535 

QS3766 001244 



004737 020272 
104005 



32777 020000 
001403 

004737 022231 



012*32 104012 



012*34 
01 2440 
012444 
012450 
012452 
012*56 



017700 
042700 
022700 
001403 
004737 
1 04006 



166332 
177760 
000010 



3 5 75 
3176 
3177 


012*60 


017700 


317R 


012*64 


042700 


3179 


012*70 


000241 


3180 


012472 


006100 


3181 


012474 


006100 


3182 


01 2*76 


006100 


3183 


01 2*00 


006100 


3184 


012502 


010001 


3185 


012*04 


105761 


3186 


012*10 


100403 


3187 


012*12 


010137 


3188 


012*16 


104007 


3189 






3190 






3191 






3192 






3193 






3194 


01 2*20 


1 16100 


1195 


012*24 


042700 


3196 


012130 


062700 



16M44 
017777 



001426 



INT15KI INCB 
BIS 



JSR 

ERROR 



1S6S7S 



BIT 
BEG 
JSR 



177600 
001306 



MOV 
BIC 
CMP 
BEQ 
JSR 
ERROR 



MOV 

BIC 

CLC 

ROL 

ROL 

ROL 

ROL 

MOV 

TST8 

BMI 

MOV 

ERROR 



MOVB 

BIC 

ADD 



INT1FL 

PPRLVL,2(SP) 



PC ff CHKCRD¥ 
S 



PC,RG4SDR 



•177760, RO 
I 10#R0 

31 

PC S GT4RG 
S 



g!RKDA,R0 
RO 

ro 

RO 
RO 

R0,R1 
BUSY(Rl) 

n 

Ri,fREG0 
7 



BU8Y(R1),R0 
9177600, RO 

#KEYy RO 



I INDICATE THAT INTERRUPT TOOK PLACE 
|CPU PRIORITY TO 5 ON RETURN FROM 
f INTERRUPT 

f CONTROL READY SET? 

f CONTROL READY NOT SET AFTER THE FIRST 
| INTERRUPT ON INITIATING SEEK 

?SCP BIT iST? 

| GET RKC8, ER, D6, DA AND DRIVE f FOR 

| TYPING SERIAL DRIVE t 

gSCP SET AFTER FIRST INTERRUPT ON 

» ACCEPTING SEEK, A SEEK WAS INITIATED, 

f AS A RESULT Of WHICH (THIS) FIRST 

I INTERRUPT OCCURRED, BUT SCP SHOULD 

I NOT BS SET AFTER THE FIRST INTERRUPT, 

1 ( IT GETS SET ONLY AFTER THE SEEK 

?IS DONE) e 

I THIS IS THE FIRST INTERRUPT 
I AFTER ISSUING SEEK 

fCHECK THERE IS h SEIK FUNCTION 
I ZN RKCS 

I GIT RKCS,ER,DS,DA 

I RKCS DOES NOT CONTAIN 'SEEK FUNCTION, 

|A SEEK HAS INITIATED AS A RESULT OF WHICH 
;(THI8) FIRST INTERRUPT OCCURRED, RKCS 
I SHOULD CONTAIN THE SEEK FUNCTION BITS, 
fSUT IT DID NOT 

I GET THE DRIVI • FROM R&D& 



iCHECK THIS DRIVE NO, WAS BUSY 

|0K, IF IT WAS 

f GET DRIVE I (FROM RKDA) 

I 'BUSY* FLAG FOR THE DRIVE WAS NOT SET, 
| THE DRIVE I ( IN RKDA) WHICH CAUSED (?) 
} THIS (FIRST) INTERRUPT SHOULD HAVE BEEN 
1 'BUSY* (SOFTWARE FLAG), NOTE WHENEVER 
f ANY OPERATION IS INITIATED ON ANY DRIVE 
; 'BUSY* FLAG FOR THAT DRIVE IS SET, 

J FORM THE ADDRESS OF 

I THIS KEY 
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DZRKHG, 


pi t as 


«.&PR«7? 


10118 




EXERCISER PROGRAM 


3197 
















3198 


012*34 


032710 


000020 






BIT 


#B|T4 S (R03 


3199 


012*40 


001003 








BNE 


4| 


3200 


012*42 


010137 


001162 






MOV 


R1,3REG0 


3201 


012*46 


104010 








ERROR 


ao 


3202 
















3203 
















3204 
















3205 


012*50 


105761 


001438 




4i§ 


TSTB 


PQ@(«3 


3206 


012554 


001003 








BNE 


3$ 


3207 


012*56 


010137 


001162 






MOV 


R1;§RIGQ 


3208 


012*62 


104010 








ERROR 


10 


320® 
















3210 
















3211 
















3212 
















3213 
















3214 
















3215 
















3216 
















3217 


012SS4 


001777 






§§! 


fit 


IRKCi 


3218 


012*70 


100044 








BPL 


S$ 


3219 
















3220 


012*72 


031737 


000040 


00S414 




BIT 




3221 


012600 


001012 








BNE 


m 


3222 


012602 


042737 


000040 


001474 




BIC 




3223 


012610 


001026 








BNE 


7S 


3224 


012612 


0S2737 


000040 


00I474 




Big 


•BXTS»ERCODE 


323S 
















3226 


012620 


004737 


omn 






JSH 




3227 
















3223 


012®24 


104011 








ERROR 


il 


3229 
















3230 
















3231 
















3232 


012626 


042710 


000020 




§§§ 


BIC 


#81S4,(R0) 


3233 


012632 


105061 


001426 






CLRB 


BUSY(Rl) 


3234 


01 2636 


105061 


001436 






CLRB 


POS(Ri) 


323S 
















3236 


012642 


004737 


016006 






JSR 


PCCLRERR 


3237 


012646 


032710 


010000 






BIS 


•BIT12i(R0) 


3238 


012652 


105261 


001446 






INCB 


RETPY(Pl) 


3239 


012656 


126127 


001446 


000003 




CMPB 


RETR¥(R!)*#3 


3240 


0S2&64 


003406 








BLE 


S« 


3241 
















3242 


012666 


004737 


014426 




718 


JSR 


PC,DRVA§T 


3243 


012672 


005061 


001446 






CLR 


RETRY(Pl) 


3244 


012676 


005037 


001474 






CLR 


ERCODE 


3245 
















3246 


012702 


000002 






Sli 


RTI 





?IS THE KCY ACTIVE FOR 'F08XT IONXNG*? 
f GET DRIVE NUMBER 

i POSITIONING WhhQ (IN fHI KEY) li NOT 
1 SET FOR THE INTERRUPTING DRIVE (GIVEN 
| IN EROR ME8AGE) 

fit THi * POSITIONING* fhM §!Tf 

f GUT DRIVE # mm RKDA 

f THIS INTERRUPT IS SUPPOSED TO il AS 

Ik RESULT OF INITIATING A (POSITIONING) 

I SEEK, WHENEVER A SEEK 18 INITIATED 

| TO POSITION THE HEADS THE POSITIONING 

f FLAG CPOSf) li SET, OCCURENCE Of THSl 

I ERROR INDICATED THAT THE DRIVE I 

| (PROM RKDA)OIVING THIS INTERRUPT DID 

> NOT HAVE ITS POSITIONING FLAG SET, 

f ANY IRRORf 
I NO • RETURN 



1 1 WE BftftOft 



t«f rkci* cr« ds* da and drsvi i rm 

I TYPING 8CRXAL DRIVf « 

fBIT 18 # 9 m* SIT IN RKKCi AFTER FXR8T 

I INTERRUPT • WHICH OCCURRED AFTER A 

I POSITIONING SEEK WAS INITIATED® RK1R 
f WILL CONTAIN ERROR BIT/S 
I CLEAR 'POSITIONING' BIT 
I CLEAR 'BUSY' FLAG 
jCLEAR 'POSITIONING* FLAG 

;CLZAR THE ERROR 
7 INDICATE HIGH PRIORITY ON 
1 1NCREMENT RETRY COUNT 
f DONE RETRXE8T 

f NO 



$hmm THE FUHCTIOM 
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3247 








3248 








3249 








*^!« ? 


012704 


0047 37 


020272 


3251 


0? 2 


10401 3 




325 2 








325 3 








325 ^ 


01 271 2 


0177 46 






012716 


004737 


022170 


3 2 So 








3237 


01 2722 


012601 








105761 


001426 




n f 5"? *o 


A U U ™ w <9 






0! 2732 


0047 37 


022032 


326 i 


012736 


104014 




323 2 








326 3 
















326S 








3266 
















3 2b b 


01 2740 


116100 


00 1436 




0127 44 


049700 

U "8 « r w U 


177600 


3270 


^ ! !!!! 


nft9700 

U O 45 (UU 


00 i 306 


3271 






O0009O 

V V V W & w 


327 2 


0l27§0 


n/ii nn S 

OOl UU J 




327 3 


01 2762 








012766 


1040 1 




1273 




















1 o57 A 1 


001 436 


% "5 "J ft 


012774 


no i ool 




3279 


01 2? 76 


010137 


001163 


328U 


1 3o02 


104010 




3281 








328 2 








328 3 








328 4 
















328 6 










Oil 


0047 37 


O 1 M i&O 

V 4 W V *» V 


3208 


fit 3010 


OOOROl 




















3291 










Oil 
3012 


1 777 7 














* 3020 


032777 


n no i oo 

VUV! WW 


3298 




nni Ann 




3 296 


j 3ft30 


004737 


023031 


3297 


01 3o34 


010137 


001350 


3298 


01 3*40 


10401S 




3299 








3300 


013*42 


031777 


001000 


3301 


01 IflSO 


001007 




3302 









att 



16S1S0 
1SSI70 



tiii4§ ssg 



J3R 

ERROR 



MOV 

JSR 

MOV 
TSTS 
BMI 
JSR 

error 



MOVE 

sic 

ADD 
SIT 

BNE 
MOV 

error 



fSfB 
BNE 

MOV 

IRftOfl 



SR 



M8V 
Slf 

mi 
j§r 

MOV 
ERROR 

SSf 
UNfg 



PCCHKCRDY 

13 



§!RKDS,«>C8P) 
PC,CR0TLF 

(8P)*,R1 

iUlYCRi) 
31 

PC*GT4RG 
14 



suskrujRo 

#i77iOO#RO 

#K£Y#R0 
#BIT4# (R0) 
31 

RijlRIGO 
10 



fOS(Rl) 
4$ 

SO 



PC^CHSSDRV 
PffgRR 



oricd!, orkda 

#r$§?«kd§ 
ii 

f»e»GT4R€ 
MjSRDRV 
IS 

MINER 



jfHIl ROUTINE IS ENTERED UPON COMPLETION 
J OF A SEEK OPERATION UNDER INTERRUPT MODE 

•CONTROL READY SET? 

/CONTROL RDY NOT SET, AFTER A SEEK 

1 DONE INTERRUPT t 

f GET DRIVE t THAT INTERRUPTED 

I ROTATE BITS 15,14*13 TO POSITION 

|0,1,2 

I GET THE ROTATED SITS (DRIVE ID SITS) 
;CHECK THAT DRIVE WAS iUiY 



I 'BUSY' FLAG FOR THE INTERRUPTING DRIVE 

l(RKDfl) WAS MOT BET. DRIVE I (15,14,13 - RKD8) 

I INTERRUPTED AFTER SEEK WAS COMPLETE, BUT 

1 "BUSY* FLAG C0RR8P0NDING TO THAT DRIVE 

I WAS CLEAR, IF THE CORRECT DRIVE WAS 

j INTERRUPTING "BUSY* FLAG SHOULD HAVE 

jREEN SET. 

I FORM TH1 ADDRESI OF THS 

if KEY 

jCHICK THAT POSITION BIT WAS SET 
f GET DRIVE NUMBER 

f POSITIONING FLAG (IN KEY) IS NOT SET 

|SET FOR INTERRUPTING DRIVE (GIVEN IN 1R0R 
jMESAGg) 

iCHECK POSITIONING FLAG MAS SIT 



^POilTIONSNa* FLAG WAS CLEAR, StHEN 

I DOING A (POSITIONING) SEEK, THE FLAG 

| c POS#' IS SET TO INDICATE THAT DRIVE 

|IS POSITIONING HEADS (SEEKING) , THIS 

I ERROR INDICATES THAT FOR THE INTERRUPTING 

fDRlVE (RKD8) POSITIONING FLAG WAS 

J NOT SIf 9 

J GO, CHECK FOR DRV ERORS (DPL, DRU, DRY, WPS) 

I IF THERE II A DRV £ROR, RETURN HERE 
I THE DRIVE HAS BEEN DESELECTED, ALL 
f FURTHER C0MAND8 ON THAT DRIVE ABORTED 
I RETURRN HERE If NO DRIVE ERRORS 
f GET THE DRIVS • FROM DRIVE ID SITS 
I IN RKD8 AND ADDRESS THE DRIVE 
jR/W/S RDY SSTf 
lYIS 

jOET RK6§jER,D§#DA 

I GET DRIVE I, FOR TYPING SERIAL # 

*R/W/S RDY NOT SET FOR INTERRUPTING 

I DRIVE (RKD§)# &F»P IKK WAI COMPLETED, 

S # SIH fl ERROR? 
f¥E§£ iRANCH 



MR® 1 1 ""DgRKHH? RK11-RK05 PS5RF9RM&NC1 CXERCXOCR 10(104*) 04-JUR-77 14HS PAOC f3 

DZRKMG 9 PU 33»APR»77 lOilS EXCRCim f R06RAM 

3303 0U*S2 031777 040000 140143 Slf fHCifRRCft l»I HARD IRROR? 

lAllo 001040 mmm iym 

3304 01 3080 001060 ^ NO ERRORS DETECTED ON POSITIONING 
llll 011143 I0S0I1 001411 CIRi ■UfVCRl) fCLIW IUiY fMO POR TMIi D«VI' 

3307 01 3066 000207 WI W 
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3S0I 














130® 














SSiO 


01 1ft 70 


004737 


031031 




JSP 


PC, 0T4R0 


3311 


01 3074 


010137 


0012SO 




MOV 


SI , SHDRV 


3312 


0! 31 00 


104016 






EPRfiR 


16 


3313 


01 3 1 OS 


043710 


000030 




BIC 


SBIT4 1 ( RO ) 


331 4 


01 51 06 


105081 


001436 




CLRB 


P08(R1 ) 


3315 


01 3U2 


losoa i 


001426 




CLRB 


BUS* C PI ) 


311* 


01 If 16 


004737 


016112 




JSR 


PC f CLRSIN 


ill? 














3113 


01 31 IS 


004117 


01 §§14 




JSR 


PQf IJSNgNT 


3319 














3320 


01 31 26 


000432 






BR 


PPT ERR 


3321 














3322 














3323 


013130 


105261 


OOS 446 


pSRTRYl 


INCB 


RETRY (Rl ) 


3324 


01 3 1 34 


1 0506 i 


001436 




CLRB 


POSCRl ) 


3325 


013140 


105061 


001426 




CLRB 


BUSYCRi ) 


3326 


01 31 44 


122761 


000003 


001446 


CHPB 


#3 f RETRYCR1 3 


3327 


013152 


001403 






BEQ 


1$ 


3328 


01 31 54 


0527 1 


1 0000 




BIS 


#BIT12, ( RO ) 


3329 


01 31 60 


000207 






RTS 


PC 


3330 














3331 


1 3 1 62 


0527 10 


104000 


iff 


BIS 


# 104000, (RO) 


3332 


01 31 66 


105061 


001446 




CLRB 


RETRY(R1 ) 


3133 


013172 


010102 






MOV 


Rl t R2 


3334 


013174 


006302 






ASL 


R2 


3335 


1 3 1 76 


005262 


001672 




INC 


AB0PT(R2) 


3336 


013^02 


042710 


010000 




BIC 


#BIT12» (RO) 


3337 


01 3906 


104421 


002165 




TYPMSC 


, M5G10 


3338 


01 3-512 


000207 






RT8 


PC 


3339 














3 3 40 


1 3*? i 4 


042710 


010000 


PFTERRl 


BIC 


#BITS2 f (RO) 


334! 


01 3920 


000207 






RTS 


PC 


3342 














3343 


01 3922 


004737 


022032 


PORKERt 


JSR 


PC?GT4RG 


3344 


01 3926 


010137 


001250 




MOV 


Rl , SRDRV 


3345 


01 3932 


104017 






ERROR 


if 


3346 














3347 














3348 


01 3934 


004737 


016006 




JSR 


PCf CLRERR 


3349 


01 3940 


042710 


000020 




BIC 


IBIT4, (RO) 


3350 


013-944 


105061 


001436 




CLRB 


POS(Rl) 


3351 


013950 


105061 


001426 




CLRB 


BUSY(Rl) 


3352 


01 3*>54 


000725 






BR 


PSRTRY 
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| THERE WAS A »SIN' ERROR ON 

fOoiNo positioning («eek> 

I GET DRIVE I, rOH TYPING SERIAL f 

I 'SIN' ON DOING (POSITIONING) tCCK 

iCLEAR 'POSITIONING' SIT 

I CLEAR POSITTIONINQ FLAG 

j CLEAR IU8Y PLAG rOR THIS DRIVE 

fCLEAR '§IN S ERPOR 

tKBEF COUNT QF »S1N* EMOftl. If MOW 
) THAN 'MAX' DESELECT THE DRIVE 
I RETUN HERE IP COUNT"MAX 

j RETURN HERE IP COUNT LESS THAN MAX 

jINCRMNT REETRY COUNT 

I CLEAR POSITION FLAG 

jCLEAR BUSY FLAG 

I DONE ALL RETRIES? 

jYES 

I SET HI PRIORITY ON RETRY 
; RETURN 

| INDICATE COMMAND ABORTED 

} CLEAR RETRY COUNT FOR FUTURE USE 



f INCREMENT ABORT COUNT 
jCLR HI PRIORITY BIT 
| PRINT ABORT MESSAGE 

fCLEAR HI PRIORITY BIT IP SET 



| IP ANY ERROR BIT IN RKCS SET 
; GET DRIVE f, FOR TYPING SERIAL # 
;0N DOING POSITIONING (SEEK) 
; ENTER HERE 

;G0 CLEAR THE HARD ERROR 

fCLEAR POSITIONING BIT IN KEY 

; CLEAR POSITIONING FLAG FOR THIS DRIVE 

I CLEAR BUSY FLAG FOR THIS DRIVE 
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3353 
















I ENTER THIS ROUTINE WHEN AN INTERRUPT 


3354 
















? OCCURS, NOTE THERE IS ONE OTHER 


3355 
















1 1NTERRUPT ROUTINE- ' INTISK* 


3356 


013-556 


105037 


001534 




INTHNDi 


CLRB 


INTPLG 


jCLEAR FLAG TO INDICATE THAT 


3357 
















1 AN INTERRUPT OCCURED, 


3358 


013962 


013766 


001244 


000002 




MOV 


PPRLVLf 2(8P) 


fCPU PRIORITY TO 3 ON RTI 


3359 


013970 


004737 


020272 






JSR 


PC P CHKCRDY 


iCONTROL READY SET? 


3360 


01 3974 


104024 








ERROR 


24 


/CONTROL RDY CLEAR APTER INTRUPT ON COMPLETION 


3361 
















? OP FUNCTION, IT SHOULD BE SET 


3362 


013976 


032777 


020000 


16S7I6 


ill 


BIT 


#SCP»iRKCS 


JSCP SET? SEARCH COMPLETE? 


3363 


013104 


001403 








BEQ 


3$ 


3364 


013106 


004737 


012704 






JSR 


PCSKCMP 


1 GO TO SEEK COMPLETE ROUTINE 


3365 


013112 


000002 








RTI 






3366 


013114 


017746 


16S710 




2$l 


MOV 




tQET THE DRIVE « TO WHICH 


3367 
















| THE COMMAND WAS ISSUED UNDER 


3368 
















I INTERRUPT MODE 


3369 


013120 


004737 


022170 






JSR 


PCCROTLP 


| ROTATE iITi 13,14,13 TO POSITION 


3370 
















>0,l,2 


337 1 


013124 


012605 








MOV 


(SP)+»R3 


|POP OFF THE DRIVE « PROM THE STICK 


3372 


013126 


105765 


001426 






T8TB 


BUSY(P5) 


ICHECK THAT DRIVE WAS IUSY 


3373 


013132 


100403 








BMI 


3$ 




3374 


01 3134 


010537 


001162 






MOV 


R5,|REG0 




3375 


013140 


1 04007 








ERROR 


1 


t 'BUSY* PLAG FOR THE INTERUPTING DRIVE 


3376 
















} WAS NOT SET, WHENEVER ANY ACTIVITY 


3377 
















}IS INITIATED ON A DRIVE, THE (SOFTWARE) 


3378 
















| 'BU8Y* PLAG IS SET TO INDICATE THAT 


3379 
















jDRIVE IS BUSY DOING SOMETHING , 


3380 
















jQCCURANCE OP THIS ERROR INDICATES 


338 1 
















1 THAT THE 'BUSY* FLAG FOR THE INTERRUPTING 


3382 
















iDRIVE (RKDA) IS CLSAR1 


3383 


013142 


105065 


001436 




3$1 


CLRB 


P08CR5) 


; CLEAR THE POSITION PLAG 


3384 


013146 


116500 


001426 






MOVB 


BUSY(R5),R0 


; GET THE ADDRESS OP THE 


3385 


01 3152 


042700 


177760 






BIC 


#lf7780,R0 


i COMMAND KEY 


3386 


01 3156 


062700 


001306 






ADD 


#KEY,R0 


3387 


013162 


032710 


000010 






BIT 


•BITS, (RO) 


ICHECK XT £, S NOT A SSEK FUNCTION 


3388 


013166 


001401 








BEQ 






3389 


01 3170 


104020 








ERROR 


20 


| ( SOFTWARE) PLAG FOR THE INTERRUPTING 


3390 
















}DRIVE (RKDA) INDICATES THAT A SEEK 


3391 
















1 FUNCTION WAS BEING EXECUTED ON THE 


3392 
















I DRIVE, IF THAT'S THE CASE, 8CP 32T SHOULD 


3393 
















1 HAVE SET ON SEEK DONE INTRUPT, BUT IT 


3394 
















|WA8 NOT, NOTE, HERE THERE IS A CHANGE 


3395 
















f OF MULTIPLE ERRORS OR ERROR 


3396 
















| MISINTERPRETATION 


3397 


013^72 


105710 






401 


TSTB 


(RO) 


j CHECK THAT FUNCTION IN 


3398 


013174 


100403 








BMI 


S$ 


1 PROGRESS BIT WAS SfT 


3399 


013176 


010S37 


001162 






MOV 


RSjlREGO 


I GiT DRIVg NUSSER 


3400 


013402 


104031 








ERROR 


31 


j IP NOT, ERROR 


3401 
















$ FUNCTION IN PROGRESS* FLAG (IN THE MY) 


3402 
















% WAS NOT SIT PGR THE INTERRUPTING DRIVE 9 


3403 
















;IP THIS DRIVE WAS BUSY DOING THE 


3404 
















f FUNCTION, THE ABOVE PLAG SHOULD BE SET ® 


3405 


013404 


01 1002 








MOV 


(R0)»R2 


;CHECK THAT THE INTERRUPTING 


3406 


013406 


042702 


177770 






BIC 


S17?770ffR2 


f DRIVE (IN RKDA) IS THE SAME AS 


3407 


013*12 


020502 








CMP 


R5,R2 


f THE DRIVE IN THE KEY 


3408 


013414 


001405 








BEQ 


6$ 
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1401 

3410 
3411 

3411 
S4SS 
1414 
341§ 
S4I§ 
1417 
I4IS 
1411 
343@ 
1411 
S4SI 
343S 
1414 

i«t 

S4IS 
3419 
S430 
8431 
till 
341S 
3434 
3431 
3431 
1437 
343S 
34Sf 
3440 
1441 
344a 
3443 
3444 
3448 
3446 
3447 
3448 
3449 
3430 
3451 
34S2 
3453 
34S4 
3455 
3456 
34S7 
3438 
3459 



013411 
011493 
011411 
013430 
013411 
013434 
013446 
01X443 
911441 

©iS#se 

011414 
013410 



01318S 

013170 
013*572 
013*76 
013602 

011604 
013610 

013612 
013620 
013622 
013630 
013832 



010SS7 
010237 
104032 

004301 
011003 
010037 

§00301 
04I7O1 
OOiiOS 
§17704 
049794 
§1§I0S 



0011*9 

O0I1H4 



00199* 

177770 



013114 O0000I 



0IS4I4 19SS04 @@00§i 

01141© 001401 

019473 ©IIIS7 00M« 0011*9 

01$i00 04041? @0Iil4 

0ISS04 I040IS 

013901 041710 000I0O 

013912 141711 000100 ®0I4§§ 

01S9I0 004737 0SIS40 

019994 OOOOOS 



01999* 0SS777 i«4M 
0SSIS4 

Qimu 0047S7 099992 

@I3§4| 10404$ 

013S44 004717 OiliSS 

01J«O 004717 011114 



fIS 



108261 
198761 

001401 
082710 010000 
042710 000020 
000002 

004737 01443S 
000002 

032777 040000 
001076 
032777 
001002 
000137 



00144§ 

000003 00I44S 



100000 ISS173 
014300 



MOV 
H8V 

ASb 
MOV 

S4SV 

§hai 

BXC 

m 

s 

nm 



Ml 

MOV 



sics 

8S 



iSf 



99i 

Ml 



iss-ioi test 



R9|9RBC0 
R9*9RE01 
99 

ii 

CR0)iR9 

m 

•lmTOfM 

mnmmum 



CRD 



pe 



RETRYCRD 

it 

••ma#CRo> 

9BIT4»<R0) 



PCrDRVABff 



• ERRrBI 

§ffIEB 



»0CT EXPCTD DRIVE $O e 

I OH DRIVE N0 t RECVO 

I UNEXPECTED DRIVE NO, INTERRUPTED 



fiSf POSITION OF THE PARAMETER 
fbXST MM fHl XBY 

»et«iAR Abb but fmmmii mm 
iCNiex that the function in 

fRKCS ANB fMI RET ARB BANS* 



1 mm function mm in rrcs 



i tit §§§PM© rm 
i@st cow iSif@ 

f function eoic that ii sis rkob Artsu mis 
iinmmiupt ocoimio t§ not tni cxpiotio oni 

fClifeAR 'FUNCTION IN PROORISS' lit 

iclbar sum mm rot this drive" 

fCHiCX POR DR1VB 8RRQRB 

i if fmns mi ami drive mm 
idbbemot thb orivb am sxit 
?xr st@ error* Mill mm 
fasti RRR0R9 



DA AND DRIVI # POR 



Jilt MtCBi IRi OBf DA 

itWIM^IiiSftb 0RIVE # 



fNSbP COUNT Of BXN'Bt If NORB 

ifHiyi mm hmmmmt DESEbECT the mim 
irbtvrn here it tmmrnu 
mmm herb xf mm than max 



f ABORT fill FUNCTION 



|TBB 

yNO 
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3460 

3461 
3462 

3463 
3464 
346S 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3478 
3476 
3477 
347S 
347$ 
3480 
3481 
3482 
3483 
3494 
I4IS 
34SS 
34S7 
34IS 
$41® 
3490 
$491 
1499 
}49) 
3414 
$4fS 
3411 
34f7 
3491 
3499 



013636 


032777 


oooooi 


S#ISS4 




S 


013«»44 


001417 










013646 


033737 


000001 


001474 




SSf 


0138S4 


001084 




O0S474 






013686 


0427S7 


000001 




11C 


013664 


001082 




O0I474 






013A6S 


012737 


000001 




iS$ 


013674 


00§3§2 


001631 






IW 


013700 


104414 


002070 








01S704 


032777 


000002 


iiSIOS 


SSI 


BIT 


013712 


001417 










011714 


032737 


oooooi 


O0I474 




BIT 


013712 


001031 








m% 
m 


013?34 


0427)7 


000001 


00i47€ 




013732 


001027 




004474 




mm 


013714 


0S3737 


000003 




ISi 


01S74I 


OOiiii 


001692 






XKCs 


013746 


104411 


002076 






TffMSi 

nwm 


0i|78§ 


104491 


002120 




111 


011786 


004737 


0317)6 






m 


013762 


0047S7 


OI30S4 






m 


04S7#§ 


004737 


029299 






s™ 


011771 


S040II 










011774 


0MI04 


000004 






ONP 


014900 


O0I00I 








MM 

MM 


9I400S 


O047S7 








osiaes 


000137 


0i4i§0 




an 


m® 


014612 


OO0IS7 






491 


m 



II 




Ml & Sift ERROR 



01 A EC 
"TMXB ONE 

ABORT fill PUNCT SOW 
MCI HlQi Slf 




life mmim 91 a cb errori 
»yg» • mmm tkxb one 

fWB.-* hmm t«XB PUNCTX0N 

|Slf THE CO S 



BIT 

§M COUNT F« THXB DRIVE 



PUNOTSON fMAf OWE 



I BATE Mm Ii POR TWXEO SRRXAIi # 

ftoff mum m perporueo a ®m 
hmmfm mm printed out in srhob 
$mmm m ororie do«r into mvi i* 

fCTb I BBC- 9# SHU I 

I HAS If A mm PUNCTXONf 

900 1 ONECR TMB DATA READ 
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1300 








IS 1 








3301 








1S03 








3aU% 


1 4ft i § 


oil? 1 ?? 


oioooo 


ISOS 


S 4f$24 


001 41i 




3^06 








ISO? 


1 4h3S 


03373? 


000004 


3508 




OOlOSi 






01 4^16 


94S717 


030004 


1SI0 


0! 4f>44 


001014 




HI | 






000004 


3S i 2 








33 i 3 




003262 


001601 


3514 


Of 4060 


005212 


001S62 


35i§ 








35 i 6 


01 4^64 


I0442I 


001062 


3317 








3518 


1 4070 


032777 


167740 


3819 




001417 




3520 








3321 


q; 4| 00 


032737 


000010 


3522 


01 41 06 


001024 




3523 


0)4) |Q 


042737 


OOOOiO 


3524 








3525 


01 41 20 


052737 


000010 


3526 








3527 


Oi 41 26 


00S262 


001562 


3528 


01 41 32 


1 04421 


002104 


3529 








3S30 


01 41 36 


104421 


002120 


3331 


0144 42 


004737 


021736 


35 3 2 








353 3 








3534 


0i4l 46 


004737 


022064 


3535 


1 4 1 32 


004737 


023226 


3536 


1 4 1 56 


104022 




3537 








3538 


Oi 4i 60 


1 0S261 


001446 


3539 


014^64 


122761 


000003 


3540 


014172 


00141 1 




3541 








3542 


01 4i 74 


052777 


01 0000 


3543 


01 4*502 


042777 


000020 


3544 


1 4? 1 


004737 


016006 


3545 


1 49 1 4 


000002 




3546 








3547 


014916 


003037 


001474 


3548 


1 4922 


104421 


002532 


3349 


0? 4926 


004737 


014426 


3350 


014932 


032777 


010000 


3551 


014940 


001416 




3552 


014942 


104416 




3553 


014944 


010137 


001S02 


3554 


014950 


000241 




3555 


014932 


006037 


001302 



1IS174 


HRDMRi 


BIT 


#§Kt ? SRKM 






8EQ 


1* 


001474 




BIT 


9BST1»IRC0DS 






BN1 


CMNCRR 


001474 




SIC 


#SSf3#lRe8Bl 






SMS 


CMNABT 


©0147 4 




sis 


»BXT3fCRC0DK 






INC 


SKECNCRg) 






INC 


HECN(R2) 






TYPM8G 


i MSGi 


I6S12S 




BIT 


#Si7?40*|RKIR 






BEQ 


2$ 


001474 




BIT 


•BIT3# ERCODE 






BNE 


CMNERR 


001474 




BZC 


#BIT3j ERCODE 






BHI 


CMKABT 


001474 




BIS 


#BIT3?ERC0DE 






INC 


HECNCR2) 






typmsg 


8 M8G4 




an 


tymsg 


r MSGS 






JSR 


PC* TYPfM 






JSR 


PC# GETXHF 






JSR 


PC^GTSDRV 






ERROR 


22 






IHCB 


RETRY(Rl) 


001446 




CMPB 


83,RETRY<RA> 






BEQ 


CMNABT 


16§334 




BIS 


•BIT12,I8AVKEY 


163326 




BXC 


#BXT4»#SAVKEY 






JSR 


PC f CLRERR 






RTI 








CliR 


IRCODS 






mm® 


,M8G27 






J8R 


PC,DRVABT 


164760 




BIT 


#8KE*#RKESI 






BEQ 


3$ 






CON. RUST 






MOV 


Rl t QDRV 






CLC 








ROR 


QDRV 



flF fHCflft WAI A HARt) 
jtRKQR 0UR1NQ fHi DAM 

ftRANirw mm here 

lIKff 



I ALREADY WORKING ON A IK iHHaHf 

I YES ■ XQNORE SHli QNi 

I ANY OTHER ERROR? 

|YU • AftORT THX§ FUNM1SM 

fACf tnb m mnm txv 

I INCREMENT COUNT FOR SKI 
I ON THIS DRIVE 



I ANY HI SUSIDIg SKIT 



j ALREADY WORKING ON A HE ERROR? 

I YES - IGNORE THIS ONE 

I ANY OTHER ERROR? 

f YES • ABORT THIS FUNCTION 

*SET THE HE ERROR BIT 

I INCREMENT HE COUNT FOR 
I THIS DRIVE 

1 PRINT 'ON DOING' 

I GO PRINT OUT THE FUNCTION 

; WHICH GAVE THIS ERROR 



f SAVE DRIVE «, FOR TYPING SERIAL # 
; HARD ERROR ON DOING DATA XFER 

I INCREMENT RETRY COUNT 

*] TRIES IN ALL? 

}YE8, ABORT THIS FUNCTION 

1 1NDICATE HIGH PRIORITY OH RETRY 
I CLEAR 'POSITIONING HEADS % IF SIT 
jCLEAR THIS ERROR 



f CLEAR SRROR CODE 

I ABORT THE FUNCTION 

$mm ERROR? 
?W0 

I RESIT THE COHSROLLIR 
?SET DRIVE NUMSSR 
f CLEAR THE »C* SIT 

$mn justify drive number 
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3356 
3357 
3558 
3559 
3560 
3561 



0149S6 
014962 
014966 

014?72 

014974 
014976 



006037 
006037 
006037 
104420 

104416 
000002 



001502 
001302 
001302 



QDRV 
QDRV 



DR? 9 RSSST 
CON, RESET 

31 S RTI 



fLEFT JUSTIFY DRIVE 
f LEFT JUSTIFY DRIVE 
I LEFT JUSTIFY DRIVE 
I RESET THE DRIVE 
I RESET THE CONTROLLE 
I THIS DAM fMNtrCR 
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336? 








3363 








1S&4 








3361 


014100 


109761 


001441 


336$ 


014104 


001406 




3567 


01 4106 


104421 


002604 


3368 


014112 


1 16146 




3569 


014116 


104401 




3870 


01 4120 


002 




3371 


01 4121 


000 




3872 








3373 


0H1M 


003037 


001414 


3574 


014136 


10S0SI 


001441 


3S7S 


0)4132 


042777 


010000 


3876 


014140 


OP47I7 


021006 


3377 








3S7S 








3S7® 


014144 


021704 


060334 


3330 


0141S0 


001003 




3381 


oHisa 


004737 


01? 110 


3313 








3SS3 








3584 








3585 


014136 


031704 


000002 


39SS 


014182 


001011 




3387 


0141§4 


032777 


000040 


3SSS 


014172 


001412 




3389 


014114 


OB2703 


100000 


3590 








339! 








3392 


014400 


010137 


00148! 


3593 








3594 








1395 








3596 








339? 


01 4404 


000407 




3598 








3599 








3600 








3601 


014406 


022704 


000006 


3602 


014412 


001002 




3603 


014*14 


003037 


0014S6 


3604 








3605 


014*20 


052710 


100000 


3606 


014124 


000002 





USUI 



WOM081 fSfl 
BCQ 

MOVS 

typoi 

lit clr 
sum 

IXC 



SNS 



IISI44 



III 



4$l 

Sll 



6Mf 
§N1 
ill 
BES 

SSi 



MOV 



cm 

CLR 

BIB 
Ml 



tiP) 



RETRI(RI) 

is 

»MgG3i 
MfRYCIU)** 

1 





MeoDf 

RETRY (Rl) 

pcitathc 



n 

PC#DATCHK 



31 
4$ 

•■Xfltfftl 



R3|NePL0 



S® 



tl#M 

4$ 

WCFLG 



flF THERE MAS NO HARD OR 
jSOfT ERROR ON DATA TRANSFER 
I ENTER HERE 



iCMM PHI9Mf¥ SIf IF ilf 

iao, esLLigf ifAfisfiet on this 

f DATA fftANgftfl 

|NM If A "SIM* FUNCTION? 

I If If WAS *MAD*# CHICK THE DATA 

ftfA! If A *tfllffg s FUNCTION? 

fit *Wflf CHK* 10 FOLLOW fHIl 

!*WStT* FUNCTION? 

|I1T FLAG IZT TO XN0ICATI 

I THAT WRITE CHECK SHOULD 

I FOLLOW THIS WRITE 

jSIf UP WC PLA6 TO INDICATE 

I THE AS0VE e THI LOWER §Yf 1 

iCONTAXNS THE POINTER TO THE 

/COMMAND LIST, WHICH WILL 

} IE USED; FOR DOING WRITE CHECK 

|IF WRITE CHECK IS TO BE DONE* DONT 

fSBT 1IT IS OF THI KEY TILL WRT CHX 

$U DOME 

I WRT CHK FUNCTION? 

jCLEAR WR CHK FLAG 

f SET FLAG TO INDICATE THIS 
I FUNCTION IS COMPLETED 
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001446 
104000 
010000 



3607 






3608 






3609 






3610 






3611 


014426 


010246 


3612 


014430 


105061 


3613 


014434 


052710 


3614 


01 4440 


042710 


3615 


014*44 


010102 


3616 


014146 


003302 


3617 


014450 


00S262 


3618 


01 4134 


026227 


3619 


014462 


003402 


3620 


014464 


000137 


3621 


014470 


012602 


3622 


014472 


104401 


3623 


014476 


000207 



001672 
001672 



OOOOlO 



6&«JUM? 14ISS PAGE SI 



f&tQRT THE FUNCTION ON DRIVE POINTED TO M Rl 

pCLSAR ASSOCIATED FLAGS 

I DROP THE DRIVE IF MORE THAN I, ABORTS 



DRV&BTl 


MOV 




jS&VE Ri 




CLRS 


RETRYCRi) 






BIS 


• 1 04000 f CM3 


| f HDXC&TI THAT FUNCTION IS AIORflS 




tie 


»BXT12«(R0) 


fCLSAR HIGH PRIORITY 1ST If SET 




MOV 


Ri i R2 






ASL 


M 






IMC 


A10RT(R2) 






CMP 


A§eRf<R§Se#i0 






BLE 


1$ 






JMP 


DSiLCf 


idrop fis mtm 


1*1 


MOV 


CSpHeRt 


ffttffORE m 




TYPE 




ffYPS "AiOWID® 




Rf§ 


n 


pRCVURN 
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DZPKHG.Pl 1 25»APR»77 1 1 i R EXERCISFR PROGRAM 



3624 

3€2^ 
3626 
3617 
1628 
3629 
3630 
3631 
3632 
3633 
3634 
3S3S 
3836 
363? 
3638 
363§ 
3640 
3644 
3642 
3643 
3644 
364S 
3646 
3647 
3648 
3649 
36S0 
36S1 
36S3 
36S3 
366 4 
3SSS 
3696 
3657 

3659 

3660 
3661 
3662 
3663 
3664 
3669 
3666 
366? 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
367P 
3679 



01MQ0 
014*102 
Qt4*S0& 
0S4SI0 
0J4S16 
014*32 

014S42 
014*542 
014S46 
0!4^S0 
Ql4*fS2 
014*56 

01 4*163 
014170 
Of W% 
O!4§00 
014602 

014606 
01 4610 
014*14 
ft! 4*30 
01 4632 
014^26 
014632 
014^36 
014644 
01 4646 

01 4«SS0 
OS 46S4 
014660 
01 4S62 
01 4S64 
01 4666 
0S4&72 
0! 467b 
014^00 
014704 
014706 
014712 
014714 
014716 



104407 
00333? 
00102S 
013737 
104401 
000407 



0i374§ 
005316 

104405 
004737 
000137 

032777 
001421 
031777 
001410 
00S727 
000000 
001013 
00S237 
004737 
000406 
008037 
104401 
004737 
033777 
001401 
000000 

O047S7 
012700 
010004 
00300! 
010130 
061701 
093701 
0^1372 
012700 
010005 
012701 
005020 
005201 
001375 



001336 
014S24 



021116 
032704 



000400 
000001 



014604 

026660 

014604 
001213 

021116 
000040 



038666 

001306 



000400 
0040Q0 



001 If s 
177740 



164340 



f This routine generates the 8 command requests and put them in this queue, the 

I FOLLOWING PARAMETERS ARE GENERATED RANDOMLYl 

fl. DRIVE NUMBER ON WHICH THE COMMAND HILL BE PERFORMED 9 

> 2, FUNCTION TO BE PERFORMED, 

|3 e DISK ADDRESS - CYLINDER, SURFACE, SECT0R 8 

?4 8 STARTING BUS ADDRESS, 

f5 t WORD COUNT FOR DATA TRANSFER « 

I THE QUEUE IS LOCATED AT *CMNB* (TO S CMNDI*) 9 



0020S6 



f |6S$| 

6485 



DEC 
BNE 
MOV 
TYPE 

BP 

9 &aexg 



REpCNT fDKREMENT REPETITION COUNT 

ii icontinue if not o 

PCHTRy REPCNT ? REESTABLISH REPETITION COUNf FOR EXERCISER 

»6SS I f TYPE ASCIE STRING 

64$ nOET OVER THE ASCII 

«is»«i3»/end or pass/ 





MOV 


SPASS* ®CWS 




INC 


CSP5 




TYPDI 






JSR 


PC# REPiTAT 




JMP 


SSOP 


Hi 


ilf 






BEG 


S$ 




BIT 


#8W00j§iWR 




BEQ 


8$ 




TST 


(PCS* 


7 $ t 











21 




INC 


?$ 




J8R 


PC,TIMTYP 






3$ 


Si i 


SLR 


71 




type 


»6CM*f 




J8R 


pcrepstat 


361 


BIT 


»8N5»6SHR 




BEQ 


It 




HAL? 




361 


asu 


PCfCNDPRS 


461 


MOV 


*KEY#R0 




MOV 


R0«R4 




CLR 


Rl 


SSI 


MOV 


R1,(R0)+ 




ADD 


*400»R1 




cm 


64000* Rl 




mm 


11 




MOV 






MOV 






MOV 


#»40*R1 


611 


CLR 


CRO?* 




INC 


Rl 




BWE 


6$ 



fSNXTCH gif f 

?§R If NOT 

ICHECK INOXCATOR 

I TYPE TINE XNOZCATOR 

p®St If TIME ALREADY TYPED 

y INCREMENT THE INDICATOR 

rTYPE THE TIME (If SWR 01 SET) 

i CbEAR thi indicator 



I HALT? 

fYE8» PRC88XN9 CONTINUE RESUMES PRO0 EXECUTION 
SCHICK Sr ANY DRIVES PRESENT 



fCLEAR THE I COMMAND KEYS 
>»XT8 9«9fl0 INDICATE THEXR 
iPOilfSOM 0»1#3,),4,8,6»7 



fCLEAR THE PARAMETER TAILS 

?FOP THE I COJWAND0 IN © 
?CSI4S WORDS IN ALL 
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3680 


014720 


004737 


01S770 








368 1 














3682 














3683 














36 8 4 


014724 


022737 


000001 


001264 


GENU 


CMP 


3685 


014732 


001002 








SHE 


3686 


014734 


005000 








ChR 


3687 


014736 


000420 








BR 


3688 


014740 


004737 


025S76 




2211 


J8R 


3689 














3690 














3691 


014744 


02S730 








RSDRVL 


3692 














3693 


014746 


013746 


02S732 






MOV 


3694 


014752 


005046 








CLR 


3695 














3696 


01 4754 


013746 


001320 






MQV 


3697 


014760 


004737 


02S212 






JSR 


3698 


01 4764 


005726 








T8T 


3699 














3700 


014766 


012600 








MQV 


3701 


014770 


020037 


001264 






CMP 


3702 


014774 


001001 








BNE 


3703 


014776 


00S300 








DEC 


3704 


OlSoOO 


005037 


001302 




III 


CI.R 


370S 


015004 


116037 


0012S4 


ooisot 




MOVB 


3706 


01SO12 


105737 


001502 






TSTB 


3707 


Ol5ol6 


100016 








BPXi 


3708 














3709 


015020 


142737 


000200 


ootsoa 




SXCB 


3710 


01S026 


132737 


"00001 


ooisoa 




BIT8 


3711 


015034 


001404 








am 


3712 














3713 


01S036 


00S737 


015734 






fST 


3714 


01S042 


001730 








BEQ 


371S 


01SO44 


000403 








BR 


371S 














3717 


Ol3n46 


005737 


01S724 




3161 


TSf 


3718 


OlSoiS 


001332 








SNE 


3719 














3720 


0SS0S4 


004737 


02SS76 




3211 


JSR 


3721 


OlSftSO 


02S734 








RSfUML 


3722 














3723 


015062 


013746 


02S7.16 






MOV 


3724 


oisoii 


00S04S 








CLP 


3735 














3726 


ni§o?o 


0I.174S 


001S36 






MOV 


3727 


0iSn?4 


004737 


02S212 






JSR 


3721 


OlStOO 


00S726 








fSf 


3729 














3730 


01S1 02 


021617 


000003 






CNP 


3731 


01S106 


001001 








BNE 


3732 


0151 10 


0OS316 








DEC 


3733 


01S? 12 


012637 


00SS12 




2011 


MOV 


3734 














373S 


0151 16 


004737 


025S76 






J8R 



PCCLRPLOS 



« 1 ? DRVPRS 

22$ 

RO 

31 



RSDRVH,»(8P) 

-(IPS 

DRMAPfCSP) 

pc, mmtv 

(8P) + 

CSP)*^RO 

11 

RO 

QDRV 

QSRV 
12$ 

ll^QDRV 
311 

ODDIVM 
QEN1 

m 

ODDIVK 

22S 



R8PUNH«-(8P) 
-(8P) 



PC#6«6DXV 

20s ' 

cap} 

PC,$RAND 



ICLIHR THE FhkQB Pmtkinim fO THE 8 

? COMMANDS in THE § 

|R4 CONTAINS ^KEf * 

?R| COMTAXMS 'CMND* 

) ONLY I DRV PRISENTf 

? NO 

iQIHERafg A RANDOM NUMSER 

i@ET h mmm drive number 

I PROM THI AVAILABLE DRIVES 



I PUT LOW DlfXDSND ON STACK 

{CLEAR MM DIVIDEND km PUSH 

i ST m STACK 

I PUSH DIVISOR OH STACK 

S<30 TO THI S DX¥XDI* SUiROUTINg 

f DISCARD THI RIMAXNDIR9 QUOTSIMf IS 

}MOW ON TOP Of THE STACK 

I MAKE SURE CORRECT X8 DOUi 

I i? 6DR¥f' ? CONTAINS E^NDOM DRIVE MO g 



{TEST If nm F DRIVE 
f MOT If POSITIVE 



f CLEAR THE FhhQ BIT 

I ODD OR EVM DRIVE ADDRESS 



?MUST HAVE BEEN AM ODD Oil 

t INSURE THAT ODDS WHAT NE MIST 



I MUST HhW SKN hU gVlU QM 
j NO GOOD .- TRY MhlM 



f GENERATE A RANDOM NUMSM 



I PUT LOW DIVIDEND ON «A« 
I CLEAR HXOH OXVIDEND AMD PUSH 

fit OM STACK 

I PUSH D1VSIQR Oil SfACK 

5@0 TO THE *DIVXDS* SUBROUTINE 

I&XSCARD THI REMAINDER QUOTIENT IS 

» HOW ON W Of THE STACK 

I MAKE SURi CORRECT FUNCflOM IS S1LCTD 



5 THE FUNCTION SMAT CA?i SI PERFORMED 
t GENERATE A RAMDON NUMBER 
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me 


Of 9«22 


099740 




3W 








3138 


0!S< 34 


011746 


09S74I 


1719 


01S? SO 


0OS04# 




3740 








1741 


OlSf 31 


013746 


001922 


3742 


oisas 


004717 


029212 


3741 


oilf 42 


00S7IS 




1744 








374S 


019*44 


0IIS37 


0OSS04 


3741 


019140 


099717 


000111 


1747 


01 SI 


001009 




1741 


01S1 #0 


O0S1I7 


OO1I04 


lilt 








17S0 


0!§!§4 






3711 








17S1 


01§|§4 


011746 


01S741 


S7SI 


01 S 1 70 


091041 




17S4 








$7!S 




01374S 


001114 


I7SS 


otitis 


004717 


owns 


3717 


019909 


00S7ii 




J7S§ 








3711 




012697 


001910 


17§6 


OlSf 10 


022717 


006014 


3761 


019916 


001001 




1713 


0199 10 


00S337 


00IS10 


3711 








37i4 


0lS«sl4 


022737 


077777 


S7II 


019919 


10100s 




1711 


0IS9I4 


011717 


©00010 


3717 








3711 








37if 








3770 








3771 


0IS94I 


9OS0OI 




1771 


011944 


000404 




3773 








1774 


019M6 


001037 


001101 


|77§ 


019399 


011701 


000014 


3774 








3777 








1771 








377® 








3710 








3711 








378S 








3711 


016996 


029797 


0OSS04 


37S4 


019964 


001003 




S78S 


0II7SS 


O1270I 


117777 


1716 


019972 


000431 




1717 








S71S 








1799 


011274 


011700 


000014 


3790 




163700 


O01S10 


17ft 


019*04 


060001 





001104 



4 s I 



011741 III 
001101 



ill 



MOV 
CLR 

MOV 

»?§r 
tst 

MOV 
CMP 
BNE 
DBC 



jbr 

tst 

MOV 
CMP 
SHI 
DEC 

CMP 

§Hf 
MOV 



CM 

m 



clr 



»9CTfLM,»(9P) 
•t$9) 

CYLMAPfCSP) 

PC999DIV 

(SP)* 

csp)*»qcyl 

99l3»QCYL 

4S 



rscylh#«<ap) 
•<ip) 

sscmap»«csp) 

PC999DXV 
CSP)* 

(SP)*#QSEC 
• UiQIBC 

Si 



97777T*RSC¥LH 

#1 

9B|T4»QSUR 



Rl 

IS 



@IUP 
9M»R1 



I PUT LOH DIVIDEND ON 6TACK 

yCLBAR HI OH OSVIDSND AND PUIH 

yIT OM 9TACK 

yPUSH OlVSiOi OM STACK 

1 00 TO THE 'DIVIDE* 9U9R0UTINC 

yDISCARD THE REMAINDER* OUOTIBNT IS 

yNOH QM TOP Or THE ATACK 

I (PROM 0-993) 



y'ACYL* CONTAINi RANDOM CYLINDER HQ, 



I PUT LOW DXVIDEND OM ATACK 

lObCAR HIiH SSVSB1MS INS P0IM 
I If ON ATACK 

i push myt$m §h §?&« 

1 90 fO THE *§f¥I0I* AUBROUTXNB 
yDXSCARD THi RSMAXNOER, @U9THNf If 
| TOW ©N TOP §F THB STACK 
I (BETWEEN 0*13/0) 



f'OSBC' CONTAINI RrlMBQM IK I 
|KI)Kf 9URPACB # RANDOMLY 

piUPF&CI I 

III CONTAIHA THE MAXM UORD COUNT 9AAB0 ON 
yAVAXLABLB DISK SPAC&* 

lM CONTAINS THE M&KM WOW COUNT BAIBD ON 
f AVAILABLE MEMORY APACE, 



fAUPPACB 9 

1 14 ABCTORA ©M iUR 



yAAAUNXNO THAT BNOUOH MEMORY IS AVAILABLE THE MAXIMUM TRANBPER THAT CAN 

ifAKE PL&« li 30X WQRil e If THE RANDOM CYLINDER H i i 10 107 AND THB 
tiUnrAC! IS is CHANCBA AM THAT THB iUMSgH or MORDA TO BE TRANAPERRBD MA? 
I BE HEATER THAM THi SPACE AVAILABLE ON THB DSBXo li THAT CAAE* THE HOROA 
tCOUNT IS TO SS ABLECTED SM BUCK AWAY TMAf ?£§!§ OVBRPLOW DOEA NOT OCCUR, 



008101 791 

an 



CNP 



MOV 

m 



MOV 
iUi 
ADS 



QCYLi 9909 

II 

9177777#Ri 

III 



@aiC;i@ 

ROiRi 



}Ii THE MM®m CYL # 8RBATBR mm 9099 
flf YEBf HARE SUM THAT MH 

jeoMPUfi m^km mm cqumt babed on 

I AVAILABLE ©SM 

y COMPUTE # Of §f STOPS AVAILABLE 8M 
yCYLINDERS SELECTED 



m^n^n^n, m%imq% mmomkna exerciber macisi iqcioid 

- " EXERCIBER PROGRAM 

MOV 99l9tR9 

SUi @eYL#RI 



m™$W®n I4|ll PAOE is 





P1 1 IS 


,«APR«»77 


10119 


3792 


011^0® 


012703 


000112 


37M 


0SS1I2 


IS3703 


001I04 


3794 


01S11S 


01274S 


000030 


37IS 




010346 




1796 


0!S^24 


004737 


02S1O© 


3797 


01 g ISO 


012^16 




3798 


OIS1S2 


012603 




3799 


015134 


060103 




3800 


Glials 


01274S 


000400 


380! 


01S142 


010346 




3802 


01S144 


004737 


02S100 


3803 


OlS^SO 


012616 




3804 




012S01 




380S 


01S1S4 


010301 




sees 








3807 








380S 








3801 








3810 


0IS«i 


004717 


02SS7I 


1611 




0M744 




3811 








3813 




013741 


0IS74S 


3914 


018^70 


0OS04S 




38IS 








38IS 


019^72 


OS174I 


00SSS0 


SS17 


0IS^7S 


00473? 


029212 


3® i i 


0IS401 


00S73I 




3919 








3830 


011404 


0|gS17 


00IS14 


3@ai 


019*10 


00S337 


001S14 




019414 


0S17I7 


0020S2 


3823 








3914 








ISIS 


019492 


013703 


0OI0S4 


1926 


019426 


163703 


0OISI4 


3S|7 


01S412 


000S41 




ssss 


01S4J4 


§01003 




1929 


01I4I® 


OI6S02 




1920 








SOU 


011440 


020201 




1131 


0li^4S 


101401 




!§II 








3IM 


01S444 


0I0S0S 




ISil 








1131 








lilt 








SISS 








2939 


01S^4# 






1S40 








1S4I 


011441 


011741 


177777 


1141 


0IS4SI 


00I04S 




SS41 








1144 


0SS4S4 


§1Q$4S 




1141 


0SS4SS 


004717 




3S4S 


0SS«iS 


0OI7IS 




1947 









JSR 
MOV 
MO? 
ADD 
MOV 
HOY 
JiR 



1091 



1191 



CLR 



fit 



ASL 
AD0 



SU1 
CM 
ROR 



CMP 
BLO 



CM 
MOV 
TBT 



930#«(BP) 
R9f«(8P) 
PCf B99MULT 

(8P)tfR9 

R1 S RI 
#40O^CiP5 
R3 ff «CSFS 
PC, B99MULT 

Rl.Rt 



PC9RAND 



mum 

-<BP) 



»(BP) 



P,«(BP) 

PC^SIISIV 
(BP)* 

(BP)t«OBUBAD 
BABEBA,QBUBAD 



NAXBA,R3 
0BUBAD,R3 

m 

R3,R9 

R2,R1 

IIS 



•<BP) 

R9f*(BP) 

PC999DXV 
<BP)4 



fCOMpUfl I Of AECTORB AVAILAiLI 

yBEYONO THE C^IHDSI? liLiCfED 

yyPUT THE MULTXPLER ON THE BTACR 
yyPUT THE MULf IPLIC&MD OH THE ' ATACK 

If CAM IMS MULTPLY KOUT1NS 
yyDIAREQARD THE MSi^l 

fi@if fHi km*& OF fHS WODUCf 
fCOMPUfi TOTAL I Of SSCfORi AVAILAlLI 

ffPUT THE NULTIPLER m THE STACK 

I If Of THE MULTIPLICAND OM THE STACK 
liCALL THE MULTPLY HOUflME 
yyOXBREOARD THE ^Si^S 

yyOBT THE fcSi'I OP THS fHODUCf 
fCOWUM fOT&i # Of MOUOS^iPACE 
y AVAILABLE ON DSIK mW THE SfLECTID 

im i 

y COMPUTE mm WORD COUif BABED ON 
y AVAILABLE MEMORY IM€£ e 
yOBNERATE RANDOM NUMBER 



yPUT LOM DSV1D1M0 OH STACK 

yCLBAR HI@H BlVlDfMD AMD PUiM 
yIT Qn BTACK 

jfUSM BIV1S01 OM ATACK 

yOO fO THE *DS¥XM* SWHOUTSMS 

fgSICIRD THE REMAINDER, QU0T11MT li 

fnow on top or the atack 

;II Uil3 

yPORM THE MmQ® SUB-ADDREAA 
yBY ADDINO RANDOM OPPBBT TO 

pfHi iAAi m$®&mmm 

y COMPUTE # OF HORDA THAT 

yCAN Sf TRANAPERREDf WISH® TM® 

y ABOVE OENERATED BUB-ADDREAA WITHOUT 

fCAUSiiQ a mn 

yAELECT SMALLER Of THB TWO 
yNOAD-COUNTS THAT HILL SI 
yUAED FSi 0EN8RATINQ & RANOOM 

$^QW COUSfl 

yR3 COMf&SiS THE MAXM MOW €§U$f 

tpossss^is mmm the mm count 



yNAPPXNO fUCfOi ?®QM fMS§ 8 



bput lov dxvideno m ®tkm 

yCLBAR MS6M DIVIDEND AND FUSH 

lit Offl If WE 

fPUSM D1VIA0S m ATACK 

yOO fO THB 8 DI¥1M 9 AUi^OUflMI 

yDXACARD THE REMAINDER* OUOTIBNT li 

fMQW Off TOP 0? THE §f&C& 
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3141 




008216 




314® 




012637 


O01SI1 


3110 








3ISS 


013472 


004737 




3®§3 


013*76 


0SS7IO 




3853 








3834 


O15100 


013748 


ois?si 


3813 


015104 


0OB046 




3836 








3SI? 


015106 


01 3746 


ooisii 


3«f 


011118 


004711 




3SSf 


0SS1H 


00S7I6 




1860 








3S31 


QJS130 


0IS631 


001811 


2861 








3363 


01S134 


00173"? 


001111 


3IS4 


OlSf SO 


001004 




3IIS 


oisisa 


001437 


00ISII 


3166 


015136 


001137 


00111$ 


386? 


0I314S 


1 13700 


OOISOS 


3861 


QlSW 


000241 




3869 


015150 


006000 




3870 


015152 


006000 




387 1 


055^34 


006000 




3872 


015156 


006000 




3873 


015160 


01 3701 


001504 


3874 


013564 


000301 




3879 


015166 


000241 




3876 


015170 


006001 




3877 


015172 


006001 




3878 


015174 


006001 




3879 


015176 


050100 




3880 


015600 


053700 


001510 


3881 


015*04 


053700 


001506 


3882 


015610 


010025 




3883 








3884 








3885 








3886 


015612 


022737 


000001 


3887 


015*20 


001412 




3888 


015622 


003014 




3889 


015624 


012725 


000002 


3890 


015630 


023727 


025752 


3891 


015636 


101010 




3892 


015540 


052714 


000040 


3893 








3894 








3895 


015644 


000405 




3896 








3897 


015646 


012725 


000004 


3898 


015652 


000402 




3899 








3900 


015654 


012725 


000012 


3901 








3902 


015660 


013715 


001516 


3903 


015664 


005425 





INC 
MOV 

J8R 

mm 

MOV 

clu 

MOV 
J8R 

fSf 

MOV 

TflT 
ROT 

mt 

INC 

MOVI 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

SWAB 

CLC 

ROR 

ROR 

ROR 

BIS 

BIS 

BIS 

MOV 



CMP 
BEG 
B6T 
MOV 
CMP 
BHI 
BIS 



14$| 

S3$l 



MOV 
BR 



MOV 
NEG 



<8P> 

(SP)*i WCMAP 

f»C*fftANB 



RBWCHf "(BP) 

«*<SPJ 

NCMAP»»(BP) 

PCflUDIV 

(BP)* 

(8P)*iQWRCNT 

OWUCNT 

130 

owrcnt 

QDRViRO 

RO 
RO 

RO 
RO 

QCYL,R1 
Rl 

Rl 
Rl 

Rl 

Rl, RO 
QSECfRO 
QSURrRO 
RO f (R5)* 



a$ 

14$ 

»2 r (R5)* 

RSWCH ? 911111 
151 

•BIT8,(R43 



18ft 

I4 V (RS)* 

ISg 

•13#CRS)+ 

QWRCNT, (R5) 
<RB>* 



iword ceoNf mapping r actor 

i generate h mmm mmm 



I PUT hW DIVIDEND QH BTACK 

rCLBAR HIGH DIVIDEND AND PUBH 

fit ON HACK 

jPUSH DlVSIOi m STATIC 

lOO TO THE 'DIVIDE* SUBROUTINE 

fDIGCARD THE REMAINDER. QUOTIENT II 

I NSW ON TOP 0P THE fTACK 

I'QNRCNT* CONTAXNI THE RANDOH 

I WORD SSif THAT NlLb 11 UISS 

fHAKE 1URE THE WORD §Q«Nf II 

> NOT 

I TAKE MM Bf BERO AND MI® NMBRG 



i position tag drive nuhber in 

fBXTS lSf!4#13 



} POSITION THE CYLINDER NUMBER 
|IN SITS 12»S 



?R0 CONTAINS THE COMPLETE DISK 

? ADDRESS 

| INSERT RKDA IN THE PARAMETER TABLE 

I (TOR THE 8 COMM&HDSJ 

j WHICH FUNCTION!. 

fO-READ CHECK* 1-READ* a*WRXTE 

I READ 

j READ CHECK 

1 WRITE FUNCTION CODE 

) SHOULD WRITE CHECK BE DONS 

I AFTER THE WRITEf 
I SET FLAG IN KEY TO INDICATE 
I THAT WRITE CHECK SHOULD BE 
I DONE FOLLOWING THE WRITE 



vread function code 



I READ CHECK FUNCTION CODE 



f INSERT THE WORD COUNT CMSWC3 
1(2*8 COMPLEMENT) 
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3904 


015666 


013725 


001514 




MOV 


QBUS&D;(R§H 


3905 














3906 














3907 


015672 


0S3724 


001302 


1S91 


IIS 


QDRV,(R4)+ 


3908 














3909 


015676 


030427 


001326 




CMP 


R4,|KEY*20 


3910 














391 1 


015702 


001402 






beq 


171 


3912 


01S704 


000137 


014724 




JMP 


GEN! 


3913 














3914 














3915 


015710 


005237 


013734 


1711 


INC 


ODDlVff 


30 16 


015714 


042737 


177776 015724 




SIC 


tl77776«0DDEVN 


3917 


015722 


000207 






RTS 


PC 


391® 














3919 


0IS724 


000000 




QDOlVWf 








I INSERT THE SU® &DDRl§§ (RKBA) FOE 
I THIS COMMAMD IN THE PARAMETER 
I TABLE 

jSET THE DRIVE MUMilR INSIDE 
I THE KEY FOR THIS COMMAND 

j GENERATED g COMMANDS IN 
I THE QUEUE! 

}SF HOT; GO §&CK AMD GENERATE 

I THE NEXT COMMAND AND THE 

? PARAMETERS (RKNC# BA» DA) 

I CHANGE FROM ODD/SNSN TO EVEN/ODO 

I KEEP ONLY ONE BIT 

f ALL 8 COMMANDS HAVE BEEN 

I GENERATED IN THE fASK®GUMl 



MO- 
DES! 



^DgpKHfl, RKfi-RKOS PERFOBMANCE BXIPCUCP MACVtl 10(1044) 06-JUN-77 HlSS PAQI »§ 
■ G.PM 3f.APR«?7 loill EXERCISER P80GRAH 

jenter this coei if aw i has sim set and looping Has to is dons on shpor 

» CONTROL Xi IRANF1PPSD TO THIS* ON RETURN PROM THE ERROR H&NDLIB *|KR!0$% 



01 §736 


004737 


01 |006 


EXCRLUPt JIP 


01S732 


01014* 




MOV 


0I3"» 14 


m 3701 


001306 


my 


015740 


04^721 


114230 


isi lie 


01S744 


02013? 


O0I3SI 


CMP 


ois^so 


101171 




BNE 


01§?S2 


012601 




wv 


MS*S4 


0047J7 


011170 


J§P 


01 wo 


O1270S 


nOilOO 


MOV 


011714 


000137 


010*90 





PdCLNERR 
•KEY»Rt 

• usaaoi cPi 3* 

Rl,lKBY*aO 

IS 

pccmfms 

#sta«*ip 
qmnqer 



|WAIT FOR OTHER DRIVES TO OET DON1 
I THEN ISiUi A CONTROL RESET 



fCLEABl OUT THS £OMM&N0s»&g¥a 



fCLIAf* OUT THE VARIOUS FLA®§ PERTAINING 

I TO THE S COMMAND! IN THE Q 
fREESTABLXSH STACK POIHTIH 
I START OVSH AQAXN, PROCESS THE COMMAND! 
flN THS AQAIN, MOTE f HAT ON LOOPING' 
I CON SiOR s NITH W 9) AN ATTEMPT IS MADE 
I TO RECREATE THE SET Sf EVENTS WHICH &ED TO 
I ERROR, 



011710 0137' 

01S774 0080! 

oism oaoo: 

oisfloa ooi3 

1 0UA04 0091' 



00S42I 

ooi4#a 



JCLRTL3S 

I THIS ROUTINE GbEARS OUT THE V&ftlOUl PLAfiS USED FW THE I COMMANDS IN THE @UIUS 9 



CLRFLOSt MOV 

its CLP 

CMP 

INI 
iff 



•SUSY* RO 
<R0) + 

RO|lOSCHT*a 

1$ 

pc 



fCLEAR THE S SUSY PLAOS 
I AW DONET 
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14IS9 PAGE Sf 



Of SnOS 


010446 






CLRERRi 


MOV 


R4?®CIf J 


016010 


010S46 








MOV 


RS**CSP) 


01SO12 


005005 








CLR 


m 


05§Ol4 


005077 


issaio 






cm 


IRKDA 


016020 


10578S 


001426 




111 


TSTi 




01 «n24 


100035 








mh 


46 


016026 


OOS037 


001473 






CLR 


TIMES 


016*32 


032777 


0001 00 


16I1S6 




BIT 


•RMB»*RKDS 


O16o40 


OOlOil 








bne 


IS 


(116rt42 


00S237 


001471 






INC 


TIMER 


Q1 $046 


001371 








mt 


a$ 


oifeaso 


004737 


032222 






jsr 


PC,R04SDR 


Ol6n34 


104004 








error 


4 


01SHS6 


032777 


001000 


163133 




Bit 


«SXNf SRKD* 


016164 


001403 








MQ 


31 


01 An66 


004737 


021322 








PC,RG4*DR 


016^72 


104016 








ERROR 


IS 


016O74 


118504 


00143S 




111 


MOVi 


busy(rd»r4 


0t6l 00 


042704 


177760 






SIC 


«1771*0*R4 


0t6i 04 


0S2704 


ooise& 






add 


IWXsM fBU 


016M0 


043714 


010000 






BIC 


6100.00* (R4) 


016U4 


10S0S5 


Q0143& 






CLftB 


BU0YCRS) 



fCLRSRR 

I THIS ROUTINE IS ENTERED NHEN A H&ID ERROR HAS OCCURRED AND IT MA§ TO 81 

jCLEARID 9 THE DRXVEi THAT HAVE BUN BUSY ARE CHECKED TO ME IF THEIR R/N/8 
|RDY BIT HAS SlT e WHEN R/N/S IS SET, CHECKING IS DONE FOR ANY ERROR, IF A 
f ERROR OCCURED IT IS REPORTED, IF NOT* APPROPRIATE FLAGS ARE 8£T AND 

jCLS&RED FOR THAT DRIVE. AFKR ASOVE IS DONE FOR ALL DRIVES THAT HAVS BEEN 
? SEEKING* A CONTROL RESE? IS ISSUED TO CLEAR THE HARD SRR0R 9 

9 SAVE R4* M ON THE STACK 



fWAS TM1S DRIVE @US¥ IESKIN6? 
I NO 

FR/N/8 SETT 

?YSi 

I KEEP TINE 

i wait tm r/h/s 

|QET RKCS# ER, DS» DA AMD DRIVE # FOR 

ITYPINC SERIAL DRIVS # 

f R/N/S RIAD¥ DID NOT S£T 

|FQK THIS DRIVE* WASfSS LONG ENOUGH, 

iSIN ERROR QU THIS DRIVET 

SQIT RKCi # ER, DS, DA AND DRIVE • FOR 
f TYPIN0 MRIAL DRIVE » 
fSlN OCCURED ON THIS DRIVE 

tfQM THE ADDRESS OF THE 

yKEY MHICH MADI THIS DRIVi 



iCbSAR HIM PRIORITY BXT# IF SET 
fMAKE THIS DR1V1 PREE* AVAILASL1 



01SU0 0i27?7 030000 163103 4ll 

016126 oosaos 

016130 02270S 000010 

016134 001331 



01 36 004737 
S0441S 
0l6i44 013S0S 

0l®f4S 012S04 
01§1S0 000207 



020140 



ADB 
SNC 

em 

BNE 



•aoOOOiSRKDA 

m 

i® 



CON, RESET 
MOV (SP)4>,RS 



MOV 
RTS 



PC 



lADORESS TMS MEKf POSStBbE DRIVE 
9 INCREMENT COUNT 
fhhh DOMI 
I NO 

I SAVE IWO ASOUT THE PAIT I PRESENT COJSAN0 
y RESTORE MtM 

f RETURN 
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4000 








4001 








4002 








4003 








4004 








4005 








4006 








4007 








4008 








4009 


016i52 


017737 


1630S2 


4010 


016160 


004737 


016006 


4011 








4012 








4013 


016164 


01 1777 


OOiSiS 


4014 


0!&!?2 


004737 


020314 


401S 


01617S 


012777 


00001s 


4016 








4017 








4018 


056904 


104417 




401? 


016906 


OOS037 


001472 


4020 


016O12 


032777 


000100 


4021 


016720 


001015 




4022 


016922 


005237 


001472 


4023 


016926 


001371 




4024 


016O30 


004737 


022222 


402S 








4026 


016934 


104004 




4027 








4028 


0S6936 


032777 


001000 


4029 


016944 


001403 




4030 


016946 


004737 


022222 


4031 








4032 


0169S2 


104016 




4033 








4034 








4035 








4036 


016954 


004737 


020340 


4037 


016960 


10441& 




4038 


016962 


000207 





1637S3 



jCLRilN 

f THIS ROUTINE IS ENTERED WHEN THERE IS k a SlM* EftROR s AT TIME Of ENTRY 
?RKDA CONTAINS THE DRIVE l THAT GAVE °MU\ h DRIVE RESET IS DONE OH MAT 
|DBXVg s AFTER IT IS DONE, ROUTINE "CLRHI 8 " IS IHTSRSO, TO WAIT TOR TKS 
jOTHER DRIVES THAT HAVE BE£N DOING SEEKS, WHEN ALL THE DRIVES GIVE 
j*R/W/§ RD¥% A CONTROL RESET IS DONE, RETURN |S HADE §ACK TO THIS 
pRQUTINE-*CLR$IN*» AND FINALLY CONTROL IS TRANSFERRED §ACt? TO THC MU 



OOISIS CtiRSINi HOV 
JSP 



1S303S 



162176 1(1 



MOV 
MOV 



§RKDA» QWCNT 
PC,CLRERR 



PCffDECMND 
113* VRKCS 



C0H 8 HD¥ 
CLR 
BIT 
BNE 

INC 

BNE 
JSR 

ERROR 



TIMER 

#RWSf IRKDS 
21 

TIMER 
IS 

PC,RC48DR 



BIT #SIN?SRKDg 

BEG 21 

JSR PC ? R64SDR 



JSR PC,CRCMND 

CON ®PE8ET 
RTS PC 



?SAVE DZBK ADDRIIS 

I GO* WAIT FOR OTHER DPIVSS TO GOMfLSfg 
I THEIR SEEKSCir THEY ARE DOING ANY) 
? THEN DO CQN 8 RfSIT TO CLR THE EROR, 

I ADDRESS THE DRIVE AGAIN 

fSAVg INFO ABOUT THE PAST & PRESENT COMAND 

yDO DRIVE RESET ON THE 

yORIVE 

I INDICATED IN PKBA 



»WAIT FOR R/H/8 RD¥ TO SIT 



fGET RKC8# ER* Dg ? DA AND DRIVE 

I Tf PING SERIAL DRIVE tf 

I R/H/8 RD¥ DID NOT SET AFTSR 

j DOING DRIVE RESET* TIMES OUT 



} GET RKCSj SR # DSg DA AND DRIVE « FOH 
I TYPING SERIAL DRIVE 9 
I A DRIVE RESIT WAS DONE ON THIS DP.1VS 
J TO CLEAR 8 SIM% BUT ^gXN* DID HOT GET 
» CLEARED 

?8AVE INFO A80UT THIS COMMAND 
I DO IT TO CLEAR OUT MASK f/fS 
jEXIT FROM THIS ROUTINE 
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4039 fSINCNT 

4040 I THIS ROUTIMi IS ENTERED MMEN A *SIN* ERROR OCCURS. THE *§1N* COUNT FOR 

4041 f THE DRIVE aiVINQ 'SIN* IS INCREMENTED, IF MOM THAW 9 *8IN» ERRORS 

4042 {OCCURRED THE DRIVE IS DESELECTED, AT f HE TIME Of ENTRT HI CONTAINS THE 

4043 |DRIVE NUMBER THAT GAVf 8 SlM 9 ERROR, 

4044 fCALLt " " ~" " 

4045 I 

4046 I 

4047 l 

4048 I 
4049 
4050 

4051 01§?&4 IOS3S5 001633 SINCNTt 

4052 011^70 12g7Sl 000005 00IS23 

4053 016976 101403 

4054 016^00 0637IS 000003 

4055 016^04 000207 
40SS 

4057 016*06 000137 011312 Hi 





PC#8XNCNT 






RETURN 


HEM IF SIN COUWf CMA«MUM AMsOWASLSJ 




mb exceeded. 






HERE If TOTAL SIM eOUN? LESS THAN MAXIMUM 




ALLONABLE, 


INC ft 


SXNCN(RI) 


f INCREMENT SOUMf fSP THIS DRIVE 


CMPft 


ftBtSXNCNCRl) 


IS ERRORS OCCURRED! 


blqs 


IS 


|VB8 


ADD 


•a»(iP) 


1 ADJUST PC FQi RETURN TO THE RSOHT POINT 


RTS 


PC 


1 RETURN 


JMP 


DSELCT 


?S ERRORS OCCURRED! 60 DESELECT 
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fOBELCT 

ffHIS ROUTINE I| ENTERED NHCN A DPIVg IS TO BE DESELECTED (TAKEN 
? OUT Of SELECTION UST3* BECAUSE Th'£ FATAL ERRORS ON THAT DRIVE 
|HAS REACHED A MAXIMUM C0UNT 9 Ml CONTAINS THE DRIVE NUMSflfi f HAT 
fTHAT SI TO II DESELECTED 8 THE Df*I¥g Ift DSaCLGCTED IF 1, TOTAL SIN COUNT 
pfOS THAT DS1VE PEACHES THE MAXIMUM ALLOWABLE 3 8 IF A FATAL KRSOR 
fLXKC DRIVE UNI&PE, DRIVE POWR LOW OCCURB, J, IF WPS 0EfS SSI* OP CM 
|IS CLEAR, 



NUMBER OF DRXVEB BEING fS#W0 

fBK m® ADORBBB Of T &§LK 
LOCAfl TH8 DRIVE (TO §1 

deselected) in mi table 

oaop the r ma 

If fHZS YHE ONE 

CONTAININ0 AVAILABLE DRIVS8 

rzNiaHBD f 

m SF NOV 

DRIVE MAS NOT fQUiO XN TABLSf EXIT 

oct thb drive mmm 

IB THIS ORXVC S THE LAST BNTRY XN TABLST 

yea 

sf not, tare out thx0 drive 9 from 
the middlb mq push up ths 

REBY OF THE -ENTRIEa 

CW« LABT ENTRY IN TARXjE 

THE DRIVE 9 TYPED OUT MAS DEaELEOTED 
BECAUSE ERROR COUNT EXCIifiSD THE 
MAXIMUM ALLOWABLE 

fffl ®BHV§ fJROPPID® 

PUBH DRIVE NUMBER OM st&eic 

TYPE Sf ON THE TERMINAL 



@Q TYPE OUT EIRIAL NO OF THE DRIVE* 
SF m 1 II SEf 9 
DECREMENT THE TOTAL mMU% @F 
DRIVEa PRE8BNT 

mm if any DRivsa present 

IF W©« OOT TO END 0F Mil? fEOP 

PUT LON DIVIDEND QW SfACK 
CLEAR HIOH DIVIDEND AMD POIH 

If on STACK 

PUSH DIVIEOR Off MACS! 

§9 TO THE 9 DiVZPr aUIROUTINE 

discard the remainder* quotient 11 

sw on top or the if ack 

TO DC UfED POR OBNBRAYINO lANDOM 
DRIVE NUMBERS. 



40§8 






4099 






4060 






4061 






4062 






4063 






4064 






40SS 






4066 






40®7 






40SI 






40§f 


016311 


011701 


4010 


03 §^IS 




4071 


01S112 


0617O3 


mi% 


OlSllS 


ooiaoi 


4011 


OIH30 


tisioi 


4074 




042703 


407§ 


016138 


030101 


407S 


01 i^40 


004401 


4011 


0tSl4<t 


OSOSOI 


4078 


0t§t44 


103110 


407f 


016^46 


000411 


40®0 


01 61S0 


111508 


40S1 




01011? 


4081 




001406 


40SI 


016360 


010104 


4084 


OiS^SS 


ooaaos 


408S 


016364 


112934 


40@S 


01 &3§6 


033704 


4087 


os§iis 


001374 


4018 


01 6 $74 


1OI0SS 


408f 






40f0 






4091 






4093 






4001 


OSS^OO 


104401 


4094 


016*04 


0I014& 


409S 


016406 


104403 


4096 


016410 


not 


40§7 


016411 


000 


40f§ 


oi6«is 


004737 


4099 






4100 


ou*i6 


0OS3B7 


4101 






4101 


0164|2 


004717 


4103 






4104 






4101 


0!#«# 


011741 


4104 


0164J3 


0OS04S 


4107 






4 101 


•116414 


01 3741 


4109 




004717 


4110 


GIS444 


OOS7I4. 


4111 






4112 


01S44S 


OI|i37 


4111 







OOIIIS 




MOV 


# PD^ 6 " I g M 


001314 




MOV 


DBVPH®? 


091311 




ADD 


1 PDP 88 1 i R3 




ISl 


INC 


PI 






MO¥i 


CHIRRS 


Iff soo 




MCs 


« 1 « r * a ir « „ r * » 






SMP 








Mi 


II 






CMP 








BhQ 


II 






IR 


11$ 




IS 1 




C 3 » 


001114 


SI 3 










UQ 


41 






MOV 


RliR4 






INC 


RD 




ISl 


mm 




001113 




mp 


#PDP#f »R4 






SMI 


IS 


171717 


4SI 


CLRS 


•l(Ri) 


00213® 




f YPI 








MOV 


Rt>«cap» 






TY POi 

9 l¥fl 


i 






9 S¥fS 





0IS7SS 




aw 


pe § shoot 


001364 




DEC 


DRVPRf 


033616 




MR 




17777"? 






• HT777^(CP) 






CLR 




001364 




MOV 


DRVPRBi»(»P) 


0111 IS 






PCfliaOIV 






fSf 


CSPH 


001S30 




MOV 


(AP)*»DRMAP 



DSPKHS 9 P1! |S®APP»77 lOUi 



IS4S2 OIS704 881181 

1§4|§ 01I40S 

16«60 041701 SH710 

1|4|4 0§0I0S 

16466 001003 

16470 013714 164000 

11474 00S7g4 

16476 0M7Q4 QQtm 

11^01 0013SS 

1 S^OI 10S70S 

16106 100013 

16*10 033701 000001 

16414 OOS403 

16*16 042701 O00OOJ 

16*33 000401 

!SW 0S3701 090001 

16*30 OO0117 Ollill 



her mm 

BXERCI8ER 



M©V 
MOV 
SIC 

mw 

MS 

Hi 
til 

SHI 



I 30(104a) 0*-JUH»77 lllll 



III 



Ml 
10«l 



fSfl 

m 

SIf 
BCO 
BIC 

m 

us 

JMP 



(R4)»HB 
•17777D«RS 

Ml, PI 

7a 

»104000«(R4) 
(R4>* 

si 

m 
in 

IS 

• 1»RI 

ioa 

• liRl 
DBELCT 



9DBVELECY fHB CQMMAiil 

I Si TH8 'COHHAND § 8 CQRRE8P0NDIN0 

|fO THE DEiELECTED DRIVE 



vindicate em®km debelbcted 

fCAMS COMPLBTED) 



$*f® TYPE DRIVE f 

tie • aost EXIT 

?00© 0H EVEN DRIVE NUMBER 



f DROP CORRBiPONDINO DRIVE 



016*34 0OO111 0106)0 4ISI iIMP BBONEX fOQ REBfART EXERaiBOR PART SF TBBT 



md«i fo«B*H«, 1 1 -mco«i performance tm®%im$ «*eui iouo46) oi«jun®?7 hiss page 14 

Dl»KHG,t»n J3«*P»«'^ 1 • I » EXERCISE* PP03RAM 



4S3S f eHK9@V 

4131 ffNII ROUTINE CHECKS F08 FATAL ERRORS W TH8 DRIVE LIKE 9PL f 0HV 

413? ftePS, IP ANY ONf Of TNESS ERRORS OCCUR THE DRIVE 1| DESELECTED 

4$3@ | AND NO mm FUWSSNS WILL SI PERFORMED qh THAT DRIVE* Ri 

4| SO {CONTAIN! THE DRIVE NUMBER TO BE CHECKED* 
♦ 140 

4141 i®HQU 11 IN THE ERROR MESSAGE WHERE RXDA IS PRINTED 0UT# Sf QXV8S 

4141 I®QNIV THE DRIVE NU*IER (NOf CYLINDER* SUPACE AHD SECTOR) a 

4143 

4144 le^LLi jsr pc#chxorv 

4t 4S f »•••• RETURN HERE If ANY F&TAL ERROR OCCURED 

f RETURN HERE IF THERE Mi MO FATAL ERROR 



41 4S 


016M0 


01114S 








MOV 


SRKDAf oCSP) 


|8AVE 


4149 


Qi§S44 


010141 








HQV 


Rl »®CIP3 


f6§T DRIVE 1 


41S0 


016*46 


000241 








CLC 






4151 


016^50 


00S01S 








ROR 


€ 




41S2 


016*53 


00S016 








ROR 


cap) 




4153 


0t6nS4 


006016 








ROR 


C8P3 




4154 


016156 


006016 








ROR 


cap) 




415S 


016*60 


012677 


162444 






MOV 


(8P)*»tRKDA 


? ADDRESS THE DRIVE TO SE CHSC&ID 


4156 


016*64 


032777 


010000 


162424 




BIT 


#DpL» iRKDS 


fDRXVS POWER LOW! 


415? 


016*572 


001403 








E££G 


1$ 




4158 


016^74 


004737 


023221 






JSR 


PC,BG4SDR 


J GST RKCie GR# D8# DA AND DRIVE # 


4159 
















?FQR TYPING SERIAL NUMBER 


4160 


05 6*00 


10403S 








ERROR 


3S 


f DRIVE POWER L0 ? #MOTE i ABOVE 


4161 


016602 


032777 


002000 


1S3406 


1SS 


BIT 


#ORlf? fRKDi 


FDRIVE 














BEG 


31 




4163 


016612 


004737 


022222 






JSR 


PC#RG4SDR 


J GET RKCS« ERg OS, DA AND DRIVE # 


4164 
















|POR TYPING SERIAL DUMBER 


4165 


01 6616 


1 04036 








ERROR 


36 


fDRIVE UNSAFE BIT Is SET 


4366 
















|#NOTE 1 WOVE 


41 67 


016620 


032777 


000040 


162370 




BIT 


#WpS*§f«DS 


$min PROTECT SETt 


4168 


016*26 


001403 








BEQ 


31 




4169 


016630 


0047J7 


022222 






JSR 


PC # RCf48Dg 


f get mc&e m, Dgy da and drive i 


4170 
















jFOR TYPING SERIAL MUMB18 


4171 


016634 


1 04037 








ERROR 


3? 


fWB SET, CHECK WRTE PROTECT SWTCH 


4172 
















i#note t above 


4173 


016636 


032777 


000200 


1823S2 


3Si 


ilf 


0DRY* SRKDS 


S DRIVE READY CLS&Rf 


4174 


016*44 


001O04 








BNE 






4175 


016646 


004737 


022222 






JSR 




|GET RKeS« D8» DA AND DRIVE # 


4176 
















|fOR TYPIMQ SERIAL NUMBER 


4177 


016&32 


1 )4034 








ERROR 


34 


I DRIVE READY CLEAR* SHOULD BE SET 


4178 
















f^MOTE 1 ABOVE 


4179 


016654 


00041 1 








BR 


SI 




4180 
4181 


016656 


032777 


012040 


162332 


4ftt 


BIT 


»12040»*RKD8 


? AMY ERRORf 


4182 


016664 


001005 








BNE 


SI 


lYIS 


4183 


016*566 


012677 


162336 






MOV 


c§p)*#§rkda 


i restore mm 


4184 


016672 


062716 


000002 






ADD 


92, cap) 


1 ADJUST 1ETURH ADDRESS 


4185 


016676 


000207 








RTS 


PC 




4186 


















4187 


016700 


000137 


016312 




Sis 


JMP 


DSELCT 





MD- 
DZP 



-DZR K H*;, 

G.Pl 1 



R K 1 1 » P K S PERFORMANCE EXERCISER MACY11 30(1046) 
2S-APR«77 1 8 18 EXERCISER mQQMH 



0#-aUM«»77 tins PA<S 



fGENBUf 

I THIS ROUTINE; 6ENERRAES A BUFFER FULL Of RANDOM DATA WORDS, THIS BUFFER 
flS THEN USED TO WRITE DATA ON THE DISK, AT THE TIME Of INSRY? f&KDA 
f CONTAINg THE DISK ADDRESS WHERE VRXTE MLL II DOMI 9 III© HQRSi USED FOR 
I THE RANDOM NUMBERS ARE I 

f 1) ABSOLUTE DISK ADDRESS C0RIVI #* CYL f, SIC SUK l| • SHSi^UM 

f 23 COMPLEMENT OF THE ASOVE WOUS 

fCALLi JSR RSjjGENBUF 

f X |X IS THE WORD COUMf C2 8 I gOMSMMf} 

9 ¥ fY IS THE STAOTIMS &D&R1SS OF THE 

$mmm BurrsR, 



200 


016704 


104414 




OEHIUFi MVRE0 




ISAVE REOimRS 


201 


016706 


016S04 


000002 


MOV 




|OET STARflM© ADBftllS Of 


202 


016712 


011503 




MOV 


C«3*R3 


i6et mm couMf c# or words to 


203 
204 












fBE aiNiRAflDJ 


205 


016714 


017702 


1623S0 


MOV 


SRKDA#R3 




206 


016720 


010237 


035756 


111 MOV 


MgMDTH 


9 GET THIS RANDOM 8SE0 


207 


016724 


010237 


02S734 


MOV 






208 
209 


016730 


005137 


0297S4 


COM 


RIDTL 


soet lo mnmn mm 




016734 


022703 


177400 


CMP 




iif the surrgR ss mm mm 




016740 


003003 




BGT 




f ONE SECTOR C400 WOR0S3 hQm f 




01 6742 


010305 




MOV 




1 GENERATE THE BUFFER IN SUCH 




016744 


005003 




CLR 


R3 


fA WAY THAT IACH SSCTOK 




016746 


000404 




BR 


31 


iBSaiMi WITH RAMDOM DATA 




016750 


062703 


000400 


2(1 ADD 




1 WORDS SSNf RATED USIMG THAT 




016754 


012705 


177400 


MOV 




| SECTOR ADDRESS kB THE RANDOM 














?SSED 




016760 


010524 




311 MOV 




I FIRST MORS Of EVERY SECTOR IS 



016762 


005205 








INC 


RS 


016764 


001427 








BEQ 


0$ 


0167&6 


004737 


025S76 




418 


JSR 


PCIRAND 


016772 


025754 








RSDTL 




016774 


012737 


000002 


017104 




MOV 


«,RCNT 


01 7n02 


013737 


025756 


omos 




MOV 


R8DTH,WUM 


017O10 


000406 








BR 


61 


017012 


005337 


017104 




Si i 


DEC 


RCNT 


017116 


001763 








BEG 


41 


01 7020 


013737 


02S7S4 


017106 




MOV 


rsdtl, mm 


017026 


005737 


017106 




6Si 


TST 


RNUM 


Of 7032 


001767 








BEQ 


ss 


017034 


013724 


017106 






MOV 


RMUM? CR4H 


01 7o40 


005205 








INC 


RS 


Ol7o42 


001351 








BNE 


4g 


017044 


005703 






8@S 


TST 


R3 


01 7o46 


001412 








BEQ 


10$ 


0Uo5O 


010246 








MOV 


R2*«*C8P5 


Ol7o§2 


042716 


177780 






BIC 


#1777§0, CSP5 



fA MORD COUflT C2 9 S C0Mf5 IMDXCAfMa # 
I Of mm® ACTUALLY WRITTEN IN THAT SECTOR 
I ALL DOME! 



fSMERATE BAT& WORDS 



fPILIi THE SUFFER® DOM*T USE 

I ALL DOME! 

|N0 

f AMY MORI DATA MQRDi CFOR 
fRIST Of THE SECTORS)! 
»YE6 

f I ABSOLUTE DISK ADDRESS 1 ITS 



MD«l1-0ERKHfl, RX1I-RK09 RKRfOPMANCE EXERCISKR MAC 1ft 1 10(1041} 0ft-JU**77 Hill PAGE @§ 
DIRKHG.PU 2§*-ftf>a<*77 1 i 1 © EXCRCISfR PROGRAM 



4344 


01 7«S& 


Q2272& 


OOOOl 3 


424S 




On 1 002 




4 2 4fo 


01 7 ?)l> 4 


062703 


000004 


4347 








4249 


n 1 7a7o 


0OS202 




424t 


01 ?«72 


000712 




4210 








43S1 


n 1 7 n ? 4 


1044&S 




43S2 




0*2708 


000004 


«ss 




000308 




43*4 








4388 


omo4 


000000 




4SS§ 




000000 







C**f> 


«Jli (8P)* 




SNI 


f 1 




ADO 






INC 


R3 




Si 


IS 


J OS 1 


mmm 






we 


iiiPl 




MI 


pi 


RCNT 8 


§ 





nmmi o 



(COMPLEMENT) fO U8C POR 
(GENERATING DATA WORDS 

$m the next ®hoc% 

S HI RANDOM ISSD 



I RESTORE RS0I8TBR8 
(ADJUST RETURN ADDRESS 
(RBTURN 



MD-Ii-OIPKH'S, RK f 1 «RK0S PHRFORM&NCE EXERCISER MACYU $0Ct«<t§) 
DSRKHG 9 PJ1 25§«®APR»77 i 1 1 @ EXERCISER PROGRAM 



08*.JUH»7T S4IS1 M« ff 



4237 










42S8 










4259 










4260 










4261 










4262 










4 25 3 










4164 










426S 


017110 


104414 






4i!66 


017i 12 


016303 


002032 




4267 










426S 


0171 16 


01S304 


000004 




42S9 


017-5 32 


016309 


ooooos 




4270 


017126 


011301 






4371 










4372 


017U0 


010I4S 






4273 


Ol7i32 


004737 


021110 




4274 










427S 


onus 


Oli#03 






4276 


0171 40 


001302 






4277 


U17142 


OS2702 


001713 




427S 










4379 


Oi7i 4« 


011737 


177784 


00IS40 


4200 


Ol7f§4 


011137 


028788 




4291 


0171*0 


013737 




088784 




01 


O0S137 


038784 




42§3 










4214 


Ol7i72 


022104 


177400 




438§ 


0l7i76 


OOSOOS 






42SS 


01 7900 


010403 






42S7 


017902 


00S004 






431® 


057904 


000404 






42§§ 










4290 


0t7?0§ 


062704 


000400 




4391 


017*12 


012701 


177400 




4292 


01 7*3 1 & 


0I3S00 






4291 










4294 










42§§ 










43f§ 




00S200 






42§7 










42§8 


017982 


008209 






42ff 


017*24 


0014§S 






4300 










4101 


017*3* 


60471? 


038874 




4302 


017*33 


038784 






4303 


0179J4 


012137 


000001 


017184 


4104 


017*43 


013737 


03S7SI 


017108 


4I0S 


0l7?i0 


OO040# 






41Q§ 


017«sS2 


00S337 


017104 




4307 


01??S6 


00S7S3 






4 303 


Of 7*&0 


013737 


02S7§4 


omos 


430$ 


017*86 


OOS737 


017108 




4310 


017972 


00I7S7 






4311 










4312 


017*74 


00S700 







j BAfCHK 

iTHii routine si entered when the bam that was read pron the bisk ii to 

(BE CHECKED, AT THE TIME 9f BHTRT R3 CONTAINS THE OFFilT Of WINTER TO 
(THE ADDRESS OF THE PARAMETER LIST CRKC8»DA* WC f BA) , DATA Ii CHECKED IN 
I SLOCKS Of i SECTOR C400 WORDS), EACH BLOCK IS QENERATED USSWO THE §f£CT0R 
$ ADDRESS CAW Sfg COMPLEMENT) AS RANDOM 0EEO8, mm A DATA MISCOMPARSSON 
(OCCURS THE SUS AD0RE88, EXPECTED AM© RECEIVED DATA ARE REPORTED « 



DATCHKf SAVREO 



M0¥ 
MOV 
MOV 



in 

in 



411 



ton 



ADD 

MO¥ 
MOV 
MOV 

em 



PCMND(R3)«R3 

4<R3)*R4 
«CR3)»R8 
(R8)»Rl 

Hl^CSfl 
MfCiftf 

(*P)*«R9 

ii 

#«i4*Bce«Nf 

(R3)»R8DTK 
R8DTM»R0Dn 

rsdtl 



CMP 




BOT 


IS 


MOV 


R4*R3 


CM 


114 


ii 


II 


AB8 


«400»R4 


MOV 


••400*RS 


MOV 


(R8)««R0 


INC 


R9 


we 


R3 


BBO 


III 


aw 


Pe«8RAND 


RSDTL 




Mm 


#3«R6NT 


nm 




BR 


I9S 


D1C 


RCNT 


si® 


41 


MOV 




fit 


RMVM 


BEQ 


IS 


fSf 





98AVB M*m 

fOBT ADDRB88 Of THE ^ARAMlflR 

JJst'Sord eou?sf ci 9 s cow 

i«f SUS ADDRBB8 
968T DISK A0DRBBB 



(ROTAffB SSfS lliHal TO 

$Pm Off DRIVE • PROM THS BTA6K 

fPORM THB ADORBBB Of DATA ERROR COUMf 
?f0» fHIB DRIVE 

leRBATE mmm bsedb to 
1 si U88D rm mmm®® mm 



>DA¥A IS CMEGKBD Ii I STCTOR 
yBbOCKB. BACH SigfOi SI BBNBRATSD 
iUiXBfl MAT SECTOR ADDRESS 
I AS THB RANOOM SBBD 



ySAVB THB fSHSf MORD Qf THB BBCTOR, 

irsisf ioae or bvbrt sector is a count 

tit*! COMP) INDXCATINO # Of WOWS ACTOAbY 
»NRlfTBN Ii THAT SSCT0H 

$t®®mmm eeuif or i er words cwritbn) 

$IM THE SWT0R 

flNCBMBNT COURT 0F DATA WORDS TO Si CH1CKHD 

$mMm s if mm® 

tOBNBRATE MM§m DATA WORD 



MD-I |«DER*Hfl, | i *@MOf PERFORM^CE EXERCXSfK I0MM6) Oft«JUN«. , n Hsll MM ff 

dirkhg,pm is«aP5^7i sosii cxi&peisFfr program 



4 313 


5 1 *J 74 


001401 








SI 






U § & ij u 






I NC 


P>U 


4 318 
















~ ! I * 


033 7 | 3 


01710b 


SI 1 


C^r 


P n U M $ C R 1 3 


4 j j 7 


S r % 9 


•50 H3 1 






suo 


S$ 


4 J 1 9 














4 3 1 9 


7 1 S 


001 ™ 00 






TiT 


PO 


4120 


017^12 


00 1 003 






MS 


6S 


4 33 1 


1 7 It 4 


OOi 7 | § 






TiT 


C W 


4332 


017^16 


00 i 4 2S 






BSS 


ss 


4323 


J 7 % 10 


001037 


1 i § 4 




CLR 


$R£G1 


4 334 


01 7 1 3 4 


00040 S 






8R 


7S 


4 333 














4 326 




1 1 ' 3 ' 


1 7 1 us 




MOV 


RNUM# SSI@I 


4 | ^ J 


017^34 






7S I 


INC 




4 3 28 


1 7 lift 


y o| 7 3? 


00 1 § 40 




TST 


ecoumt 


4539 


01 7H§ 


001411 






|f Q 


ii 


4 330 


057144 


010S37 


001163 




MOV 


RS,«REG0 


4)11 


017^90 


011SS7 


00 II IS 




MOV 


<R&)#SRE62 


4333 


0171S4 


010117 


001170 




N0V 


Rl»iRKG3 


4133 


! 7 1 6 


004717 


428224 




JiP 


pcgtsdrv 


4334 


(11 7 IS 4 


104031 






ERROR 


33 



4131 
4336 
4 337 
4 3 30 

4340 



4341 


01 7^66 


005237 


001540 


INC 


ECOUNT 


4342 












4343 


017^72 


005725 


811 


TST 




4344 


017^74 


005203 




IMC 




4345 


05 7176 


001313 




BNE 


4® 


4346 












4347 


017*00 


0O5704 


Hit 


TST 


m 


4348 


017 102 


001427 




BEG 




4349 










4350 


0! 7404 


010146 




my 


Rl, -(SP) 


4351 












4352 


01 7*06 


042716 


177760 


BIC 


#177760* CSP) 


4353 


017412 


022726 


00001 3 


CMP 




4354 


017-516 


001002 




BNE 


15« 


4355 


017420 


062701 


000004 


ADD 


«4,R1 


4356 












4357 


017 124 


005701 


131? 


INC 


Rl 


4358 


017426 


032777 


000002 161564 


BIT 




4359 


017434 


001403 




BEQ 


16$ 


4360 


017 436 


020177 


181566 


CMP 


Ri s IRKDA 


436 1 


017442 


001407 




BEQ 


17$ 


4362 


017444 


010137 


025756 |S$g 


MOV 


R1,RSDTH 


4363 


017450 


010137 


035754 


MOV 


Rl ? RSDTL 


4364 


017454 


0051 37 


025754 


COM 


rsdtl 


4365 


ni7 160 


000644 




BP 


i« 


4366 


01 7462 


104415 


nst 


RESREG 


4367 


01 7464 


00020? 




RTS 


PC 



iexpctd mm 
iyks 



» recvh wordy 



i incwnt Dhtk mm e@unf for thsi orvs 

llfOftl ONLY II CDSSS DATA ERRORS 

» If MORS EXIT 

fflAVE ERROR BUS ADDRESS 

jSAVg ERROR 9&f A MQpe 

»SAVS DRIVE g, FOR WING SERIAL S 
»DATA (COMPARISON) ERROR OW DOING 
»READ FROM DISK NORMALLY ONLY SI DATA 
fSRRORS HILL SS REPORTED, THROUGH 
iCHECKING WILL if so^E ? ERRORS 
t EXCEEDING .12 WON'T SE REPORTED, IF 
;YOU WANT MORS* CHAMGE *gCOUNT% TO 

jwkatsvsr i or mmm law want RiposifiD 



I DONE CHSCMG? 



fAM¥ MORS SECTOR BLOCKI 
I TO CHKIf IF HOf i5 EXif 



j€ET THE MEW EAMDOM SEEDS 

!f (ABiOLUfg DISK ADDPESS & ITS COMPLSMgMT) 
?TQ USE FOR GENERATING BkT& WORDS 
?Qr THE NEXT SLOCK 



flf THSM KAS & €gg THEN CHSCK 
fOML¥ THOSE fM&f WERE READ 



MD»1 1»DZR&HG, 
DZBKHG g Pi 1 



RKll^RKOS PERFORMANCE EXERCISER MACYU 30(1046) 

25«aPR«7? iOUS ROUTINE TO SIEE MEMORY 



4369 
436<? 
4 370 
4 3 7 1 

437 2 
4373 
4374 
4375 
4 376 
4377 
4378 
4379 
4380 

438 1 
4382 
4383 
4384 
438S 
4386 
4387 
4383 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
441 1 
4412 
4413 

4414 
441S 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 



5.SBTTL ROUTINE TO SIK Mi HO BY 



017466 
017470 
017172 
017^74 
01?4?6 
017^02 
017«506 

017^10 
017M2 

017S16 
01 7522 
017*524 
017526 
017S30 
017*536 
017^42 
017*550 
017552 
01?i?56 
017^62 
017^70 
017172 
017576 
01 7600 
017&04 
0I7S06 
017S14 
017S22 
017S24 

017626 
0I7&32 
017^40 
017644 
017630 
017SS4 
017836 
017660 
017^64 
017666 



010046 
010146 
010246 
010346 
013746 
013746 
010600 

104400 
012637 
012701 

I0S727 
000200 
100062 
012737 
005737 
052737 
005046 
012702 
012703 
012762 
011622 
062716 
077307 
012742 
00S042 
012737 
0I2737 
000401 
022626 

00S237 
012737 
00S737 
062713 
023712 
101371 
011202 
005037 
000421 
042737 



000004 

000006 



OOOOOS 
00377S 



017S6S 
177S72 
100000 

172340 
000010 

077406 

000200 

177600 

017624 
000020 



177572 
017M6 
143776 
000040 
17235$ 



000004 
172S1S 



?»CALL1 

l» RETURN 
p*$LSTAD WILL CONTAINS 
F» 5^ITH KTtl OPTION 

|* WITHOUT KTi 1 OPTION 

?®|L§TBK WILL CONTAIN THE hhK BANK h MF 
j»IKTli IS THE MEMORY MAN^QEMIMT KEY 
f*BIT07 9 DO^^T USS MEMORY MANAGEMENT 
l# MUST BE ggfUP BEFOKI THE Chhb 

^BITtS 9 0OM*T HIVE MEMORY MANAGEMENT OPflOM 
|» DETERMINED BY ROUTINE 



LAST VIRTUAL IDDRlSS OF THE hMt 

last AMQhun kmmm of &vmla&li memory 



000004 

017S24 



177740 IS s 



SSZZEt MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 

H@ET IMS ESRVSC 

TRAP 

MOV 

MOV 

TITB 
•KTllj « WORD 

BPh 

MOV 

TST 

BIS 

CLE 

mv 

MOV 
MOV 

MOV 
ADD 
SOB 
MOV 
Ctift 
MOV 
MOV 
BR 
CMP 



H8AVE m QM THE STACK 

nMw m on Tm mmn 

yfftAVE m THE STACK 

ffSAVS RJ OU THE SMCK 

1 1 SAVE PREiENT EHROK VIC f OB M & 



R1,»(SP) 
R2»«(fiP) 

R.V«CSP) 

t*ERRVEC # «(SP) if SAVE PREiENT EHROK VIC f OB & PC 
S0ERRVBC^2»»(8P) 

SP,R0 | | SAVE THI ITACK POINTER 

p® to the mmmf pb 

t f PUSH QW PW hW fC ON SfA€K 
(Sp)*,i«ERRVEC*2 IJSAVE THE ®W IN ••ERRVBC*3 

#3776. Rl M SETUP ADDRESS 

(PC)* HME MEMORY MANAOEMENTT 

200 HSET TO USE MSMORY MANAGEMENT 

SCORE pfBft if HO 

#SKTMSK#f#ERRVEC ?|SET FOR TIMEOUT. 



211 
381 



4$l 



100000 0I7S24 



IMC 
MOV 
TST 
&0D 
CMP 
BH I 

gKTOUTs MOV 
CLR 
BR 

IKTNEX! BIC 



fWO ffKTli hM YOU fHE^gf 

#100000»«KT11 ||YES««»SET KTll KEY 

f lINITZALIEE FOP «PAR S LO^DIHG 

#KJPAR0*R2 f| ADDRESS OF 'FIRST '•PAH 88 

^08^3 hLOAD EIGHT "FARES'* AMD •H3SB 9 <J i« 

#t7406»«40(R2) f | FDR 8 4K« UP* R1AD/MBITE 

(SP)sCR2)* f p LOAD ®9m® 

«O0*CSP3 i | UFDAf S FOP, M«T s PAR ffi 

H3 S II ifLOOP UHTIL hhh EIGHT IRE LOADED 

#177600^CR2) ? 5 -SETUP KIPAK7 FOR I/O 

™(B23 |?SEfUF KIi»AR?> FOR TSST.INO 

#2S#i#SRRVEC | f CATCH TSNSOUT If NO SP3 

#10#@#SR| HENABLf 22 11? MODE 

31 iffHIS PD»«U HAS A SM REGISTER 

CSp)4. ? CSP)« nCLSIH OFF THE ST&C&^HO SRI 

##SR0 f | TURN OW MEMORY MIMAGEMEMf 

#SKTOUT^|#IRHVSC nSET FOR TSMg OUT 

f#S4377S f I TRAP ON ^OM««^MEM 

«4Q»<R2) | | MAKE A IK STEP 

§«XPAR? f jiLAST ONEf 

4i ; ? f-IO-*TP¥ IT 

CH2)?R2 ifGET imt BhUK^i 

t^SRO | f TURN Off MEMORY M^HAGf MENf 

8SIZEX 

#iooooo#$ktii jfKTH non^EU$fini 



MD»U«DlPMflf PKU»R«OI PERFORMANCE EXERCISER MACYU 10(1048) 

derma, ph 3*.ap»»77 101 is routxnb to size memory 



08«dUN«77 1 4198 PAOE see 



4414 0I7«74 011717 017184 O@0Q§4 teOREl MOV 

4439 017703 ooiooi clr 

44fg? fl17704 O$g70f 004000 Hi APS 

4411 017710 Min 000040 ADD 

442S 017714 00S7H TST 

443f 0177l§ «til0S 177771 CMP 

4410 017711 001110 Mi 
44S1 017714 163701 004060 OCROUTl §«§ 
44SI 017710 1*3703 006040 IIISM! MS 

4411 CH77S4 O10OOS 

4414 01773S §11137 §06001 R0V 

4415 017741 013037 000604 MOV 
441S 01774ft 010137 017770 MSV 
4417 0I77SI 010211 017771 MOV 
441§ 017711 013403 MOV 

4439 017710 013403 m ^ 

4440 0S71II 018001 ®^ 
#441 0S77I4 011109 NOV 

4441 011711 @0§S§7 «, ffl! * Sft9 "IS. ft 
444S 017770 §00006 SLSTADl 9 W0i0 
4444 Ql77f§ 800000 §L8TRE| »Wi 



••CR0UT»S«BRRVSC 
R3 

#4@O0 ? P1 
«40*R3 

crij 

#I7777§?PS| 
1$ 

I4000»R1 

#40, US 

(rp)*»soerrvbc*8 

C8p)*iS#ERRVEG 
RlvlLSTAD 

Ra#tLSTBR 

CSP}*#RI 

(sp)tiRa 

<SP)*«R1 
(SP)*»R0 

pc 

© 



I f«IT F@P TIMEOUT 
998ET UP 1ANK 

9 9 increment if ik 

1 1 IK if IP 

9 9 trap on time eu? 

9 9 LAST ONC 

9|n0««try aoaxn 
iidrop back 

1 1 RESTORE THE If JIM 
flPIITCM ERROR VECTOR 

is last address 

9 1 LAST RANK 

1 9 restore m 
9 9 restore m 

19 RESTORE iS 

h restore m 

If CONTAINS THE LAST ADDRESS 
JlCONTAlNB fHl LAST SANK 



MD«ll-D2RKHf?, RK11-PK0S PERFORMANCE EXERCISER RACY! I 30C104S3 

DIP&HG S PI1 3§«&PB<®7? 101 II ROUYXNB YO 8XEE MEMORY 



08«JUN»77 14i§§ PAOE i0i 



444S 








4446 








4441? 








4448 








4449 








44SO 








4401 


017774 


032777 


020000 


44S2 


0?OOO2 


001042 




4413 




01034S 




4494 


0?0?s0§ 


010441 




44S9 


oSoaio 


0I0S4§ 




44S@ 








44S7 


o3oM3 


O10I4S 




44SS 


020014 


004717 


033170 


44S§ 


020Og0 


013003 




44&Q 




OOiiO! 




4461 








4403 


0tOO$4 


081304 


171140 


4461 








44&4 


0S0O1O 


001001 




44SI 




0!17OS 


177773 


44IS 


OlOPfli 


00&I04 




4467 


0^0040 


008300 




44§8 


0*0048 


0O117S 




44#§ 








4470 








4471 


0^0^44 


010I4S 




4472 








447! 


0?0«4S 


04I7IS 


110000 


4474 


o§o«sa 


0S3004 




447S 


0t0«S4 


OOS903 




447# 








4477 




010417 


0011S2 


4471 


020ftSI 


010337 


00SSI4 


4471 


030*86 


011741 


0O1IM 


44S0 


0S§a7I 


004717 


0S44I4 


4411 








4411 








4411 








4414 


0f0fi7# 


0Q4737 


011014 


44IS 








44I& 








4417 


05§f©| 


oiasos 




4411 


oao<o4 


013S04 




44ft 


0101 0§ 


©11101 




44§0 








44f! 


030H0 


006107 





9TYPD8O 

lYHXS ROUYXNE CONVERTS k VIRTUAL &BDRI§§ fO PHYSICAL ADDRESS AND TYPES 
fOUf THE S DIGIT PHYSICAL ADDRESS, R2 CONTAINS VIRTUAL ADDREfS AT THE TIME 
$QT ENTRY, 

9 TYPE OUT IS INHIBITED SF SW SI IS SCT, 

1611*8 TYPDSOI Iff ftSWilfSSNR » INHIBIT ffPSQUTf 

I YES 



fPUill Va SfAGE 

9 ROTATE 1ST1 $1*14*13 INTO i*i*8 

fPORM OFFSIf fO BE USED 

fPOR KIPAR 

iaif tm mm pirn mmtm mm 

fXXPAR 

f ROTATE LEPT I TIMES C^ULfSfLY 
fBY 10© OCTAL) fO OET THE 

$mm iu# ADDiiis tmmchh} 

$n CONTAINS Sflil^i BITS 



III 



Iff 


ftSWilfSSNR 


mm 




MOV 


R3r*(SP) 


MOV 


R4«-(8P) 


MOV 


RS,«<8P) 


M8V 


R3««(SP) 


MM 


PCiCROTLP 


my 


(SP)^fRI 


h®h 


R3 


M8V 


KIPARO(RS)iRS 


CLR 


IS 


MOV 


•«*#RS 


ROL 


ill 


INC 




BNE 


II 


MQV 


R3««CSP) 


SIC 








AW 




M§¥ 




M§¥ 


R3»0REai 




MREa0,»(SP) 


MR 


PCfSfSDBRO 


JSi 


PCfSOSUPRS 


M@V 


(SP)*»RS 




(SP)^fRS 


MSV 


(SP)«»R3 



9 strip err top i bits mm va i 

I OET fHl OPPSET INSIOE THE PAOE 

9P0RM fHl ENTIRE PHYSICAL 

9 ADDRESS • M CONTAINS L8W» |S BITS' 

9R3 CONTAINS TOP I BITS 

fSAVE LONER || SIfl OP PA 

9 SAVE TOP I BITS Qf Ph 

I PUSH POINTER TO PA ON SfAgK 

leONVSR? fHl SI Slf SSHJUSY 

I^DDMSIg W mi'tkh ASICS HUMSIRi ON RSfUUM 

f POINTER TO WI PIRST AS6S1 CHARACTERS 

iu on mm 

9 TYPE OUT fHl OCTAL S DIOIT 



in 



MD«»1 1 ffl D2P$&H!l f PK 1 1-PKOS prUrO^MANeffi EXKPCISEW MACY1 1 30UO4S) 0&«*JUN*77 HiSS PAQt |fl| 
DZRKHG.P1 1 as «A P5?«7 ? 1 11 * RUUTIluP: TO SUE mrmhry 



0201 12 

0201 16 
0201 20 

020124 



020116 
020133 
0201S4 
n2Gi40 
020146 



00571"? 16U04 
100073 

004737 01203a 
000207 



0202? 
0<)I4§ 
OiOSI 
01773 
00020 



001112 

161064 00IIS4 



SCMKCS 

iTHIS ROUTINE CHECKS If BIT IS Of PKCfl WAS SET, IF If WAS RETURN !§ MADfi TO 
f THE EPPOP MESSAGE FOLLOWING THg JSP C&LL « If NOT, THE ERROR MADE TO IMP 

fQVEP 1HE EPPOR MEgSA6E 9 

CHKCftl TST §Rf<CS jBlt 1| ®ETf 

BPL COMRET pNO 

JSP PC# GT4B6 |YC«i GST MQ& 9 DA» ©A 

PTI PC | RETURN TO THI ERROR MBffAQI 

I CHKDA 

I THIS ROUTINC CHECKS IF BKDA INCREMENT g© CORRECTLY , If MOT* REfURN II MAM 
|T0 THE ERROR MESSAGE FOLLOWING THE J|» CALL* If MEt* RETURN SI MADE fC 
|8KXP OVER THE ERROR MESSAGE® 

fAT THg TlMg Of ENTRY* R2 CONTAIN! THE EXPECTED R&DA a 

CHKDAi CMP RSt,§RKDA |D$D RKBA INCREMENT CORRBCTLYf 

BEQ COMRET yYtS 

MOV R2,iRSG0 |6ET EXPCTD RKDA 

MOV *RKDA,«RSG1 jGET RICDA RECVD 

RTS PC | RETURN TO THE ERROR MBSBAOE 

jCHKBA 

t THIS ROUTINE CHECK! IF RKBA INCREH8NT8D CORRECTLY. If MOTi REfURN IS MAM 
» TO THE mm% MglSAQI FOILONINO THE sJSR CALL, SF ¥18* RETURN I# MADE TO 
tSKIP OVER THE ERROR MESSAGE,, 

I AT THE TIME OF ENTRY* R| CONTAINS THE WORD COUNT (# OF WORDS TRANSFERRED) 
tm CONTAINS THE BUS ADDRESS WHERE THE TRANSFER STARTED, 



21 


020150 


000241 




CHKBAl CLC 






22 


020152 


006103 




rol 


FS3 


fFORM THE EXPCfD BUS ADDRESS 


?3 


070154 


060304 




ADD 


R3,R4 




24 


020156 


000241 




CLC 






25 


020160 


006003 




ROB 


R3 




26 


020162 


020477 


161040 


CMP 


R4,«RKBA 


iDiD rkba increment corrictlyi 


27 


0201 66 


001447 




BEQ 


COMRET 


?YES 


2P 


020170 


010437 


001162 


MOV 


R4,$REG0 


J GET EXPCTD RKBA 


29 


020174 


000207 




RTS 


PC 


t RETURN TO THE EROB MESAGE 


30 
31 


0201 76 


017737 


161024 00H64 


MOV 


§RR8A*gREGi 


i GET RKBA RECV0 



I CHKMEX 

? THIS ROUTINE CHECKS THAT RKBA OVERFLOWED AMD MSX BIT WAS SKIN RKCS (BIT 43 
I IF RKBA OVERFLOWED CORRECTLY* THE RETURN ADDRESS IS ADJUSTED TO SKIP " THE 
f ERROR MESSAGE ON RETURN „ 





J7 


020104 


017746 


161012 


CHKMEX} MOV 


0RXC8 # «(SP) 


pGET RKC8 




38 


020910 


042716 


177717 


BIC 




?GET HO BITS 4#S 




39 


020914 


022726 


000020 


CMP 


#B2T4* C8P) + 


f CHECK BIT 4 SET? 


45 


10 


020920 


001432 




BE CI 


COMRET 


jYES, OK 


45 


11 


020722 


004737 


022032 


JSR 


PC,GT4RG 


f SAVE RKCSjERjiDSjDA 


45 


12 


070?26 


000207 




RTS 


PC 


1 RETURN 



MD»' 

DZP1 



G.P11 



RKH-RK05 PERFORMANCE EXERCISER MACY11 30(1046) 
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06-»JUN«77 S4ISS PASS 103 



JCHXWC 

i THIS ROUTINE CHECKS IF RKWC OVERFLOWED CORRECTLY AFTER h DATA TRAWSFER 
|IF IT DID NOT, RETURN IS MADE TO THE ERROR MESSAGE 9 IF IT DID, RETURN III 
I MADE TO SKIP OVER THE ERROR MESSAGE , 



O20?30 
020934 
020236 
020944 
020952 



005777 
001424 
017737 
017737 
000207 



CHKWCs 



160786 
160754 



0011*2 
001164 



TST 

BEQ 
MOV 
MOV 
RTS 



iRKWC 
COMRET 

f RKDA* SRSGO 
IRKMC^SRIGI 
PC 



?RKWC OVERFLO«Df 
fYES 



f RETURN TO THi If?QR MESA« 



020954 032777 000100 160734 

020962 001011 

020964 004737 022032 

020970 000207 



I CHKRWS 

f THIS R0UTIN1 CHICKS IF R/W/S ROY BIT SM RKDS IS SIT 9 SF IT 18 NOT SET IETURN 
rlS MADE TO THE ERROPl ME0IAGE f OLLOWIH® THE JSR CALL® IF IT IS* THE RETURN 
f ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE ON R1RTURM 9 

CHKRUSl BIT IRWS#|RKDS pRWS RD¥ SlTf 

BNE COMRET ? YES 

JSR PCeQtmS | GET RKC# S ER ? M f DA 

RTS PC | RETURN TO THE ERROR MESSAGE 



070972 
020976 
020100 
020*04 



10577? 160724 
100403 

004737 022032 
000207 



020106 062716 000002 
020912 000207 



fCHKCRDY 

1 THIS ROUTINE CHECKS IF CONTROL READ! BIT SM REGS SS SIT 3 SF IT II HOT* 
f RETURN IS MADS TO THE gfytOR MI8SAGE FOLbOWINO THSE JSH «LL 8 IF IT SS? 
I RETURN ADDRESS II ADJUSTED TO SKIP OVER THE ERROR MESSAGE, 



CHKCRDYl TSfS 
BMI 
JSR 

RTS 



COM 



ADD 

RfS 



IRKCS 
COMRET 
PCGT4RG 
PC 

pe 



f control mmi isff 
lYia 

i git wcei* m s Di ? da 

I RETURN TO THE SROH MESAGE 

f ADJUST RBVURN ADDRESS TO SKIP OVUM MISAGE 



t-DZBKH*, RK } t ®RK05 PthFOPMANCE EXERCISER *ACYll 10(1046) 06-JUN-77 14lSS PAGE 104 
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4§?9 

4se i 

438 2 
49*3 

4584 
4581 

45 AS 
4S97 
4S88 
4S89 
4S90 
4S9! 
4B9 2 
4S93 
45§4 
4SfS 
4996 
4§?7 

4SS^ 
4600 
4§01 
4603 

46ui 

4604 
460^ 
4606 
4601 
4601! 
4S09 
4610 
46U 
461 2 
461 3 
46! 4 

46 J S 
4616 
461 7 
481? 
46 S 9 
4620 
4671 
4fc22 
4623 
4624 
4625 
462ft 
4627 



o?om 

Q70%%2 
03M26 

030132 

070140 
n?0*46 

070150 

020170 

070^71 
O20H76 
020400 
070404 

020410 
020U6 
070424 



01171? 
0I774S 
004737 
08341? 

000414 

01373? 
000410 

011037 
042737 
032737 

000407 

OOiOS? 
01004S 
163716 

042637 

013737 
013737 
000207 



100400 
166102 

022170 

oosiii 



001141 



140000 001SSI 



001B13 
P7770 

100300 



00IS1S 



001306 

00ISI2 



0014S2 
001512 



ootsia 



0014S4 
0044&3 



ffHlS ROUTINE KEEPS A HISTORY 0?" THE C00MAND8 THftT API BEING EXECUTED 
? UN IMS PK11, *Pf*SFN€* C0NTAIN8 INFORMATION ASOUT THE PRESENT COMMAND 
I^HICH IS ABOUT 10 BE INITIATED, 'PBTFNC CONTAINS IN? ORtfATlON ASOUT 1M* 
I COMMAND THAT W&§ EXECUTED BEFORE THIS NEW 0« 8 THERE ARB MULTIPLE P01NI3 

for entry DgpsNDiwa on the type or command sews pggagNTLY initiated! 

iDRCMND • ENTERED WHIN & DRIVE RESET II BEING INITIATED, DRIVE I !S SAVED 
f IM BITS 0®§ Of »PR8CMND» AND BIT S SS §ET S 

iGRCMND • ENTERED WHEN A CONTROL Mill II SUMS SNlfXAflB s SIT 14 QF 
j *PRSCMNO I® Iff, 

ipobcmnd • entered mm h positioning iw si being initiated, bits 
icoNf&« the drive number on which the positioning seek mas do« 8 &l§q 

|S|T ? II «ET d 

SM ALL ABOVE €A§S§ Slf IS Of •PRBCMND' SI BET, 

|f MCMND • fiNTSREO WHEN A Wmm OTHER fMAW AMI? ONE OF THE ASQVg IB BEING 

fXNITXATED fill MID* WftSfg ? IKK 

I THE OFFSET TO THE COMMAND KEY CBASEaKEY) SI SAV1D IN llfl 0«J 0F 'PSRCMND' 



|Sf SHOULD SI M0fg9 TMAT CONTENTS Qf 

I AND SA¥g8* BEfORE PUTTING WO &§OUf THE PRESENT COMMAND IN 



prsfnc pushed tnf® 'pbtpnc 

'PRBFNC- 



5 SO CONTAINS ADDRESS Of THE COMMAND R|Y» If fill TIME OF ENTRY e 

IS^VI DRIVE # 



DR6MNDI MOV 

MOV 
•lift 
BIB 
BR 

CRCMNDl MOV 

in 

POSCMNDl 

III 

m 

fncmndj CLR 

Pit M0¥ 
BUS 
Bli 



MOV 
MOV 
RTB 



•BIfii*»XfB»GFMC 
•RKDA»«(SP) 
PCCROTLF 
(S?)+»GPNe 

pa 

#ims*isfi4#@m 
P3 

MOV (ftO)fQPNC 

#i?mo#erNe 

«BIT1S*BIT?»«PNC 

pa 

8fnc 

R0,-»<8P> 
#KEY# («P> 
(SP)*»QFNC 

PR8FMC«P8TFNC 
QFNC#PR6FNC 

PC 



$mt DRIVE NO 5 



DSSRtfHG,Pt t 



f?Kl!«HKOS PERFOSMANCI SKEPCI SIS MACYU S0ClO4§) 
2S-aPB-«7? 101 I® ROUT! W fO SI£S MEMORY 



OS^aUM^ff 14189 PAO 



4628 








462^ 








4630 








4631 








4632 








4631 








4634 








463S 


070426 


010046 




4636 


O2O&30 


010144 




4637 








4638 


020432 


012700 


QQIU2 


4639 


020416 


104401 


0207M 


4640 


Q20443 


104401 


02077S 


4641 


02044S 


104401 


020762 


4S42 


020432 


005710 




4643 


020154 


100053 




4644 


020436 


105710 




464S 


0204&Q 


100427 




4646 


020462 


032710 


040000 


4S47 


020466 


001014 




4649 








4649 


090470 


104401 


02047S 


4650 


020474 


000410 




4651 








46S2 


osoiis 






46§3 


020^16 


000425 




4694 








4658 


020^20 






46S& 


070^20 


104401 




46S7 


020^34 


000404 




46S9 








463« 


020^36 






46S0 


020^36 


00Q4§1 




46S1 








4662 


020^40 






4663 


020^40 


404401 


O20S4S 


46S4 


020^44 


000412 




4665 








4666 


©20^72 






466? 


020^72 


011046 




4668 




0427IS 


171710 


46S9 


020600 


10440I 




4670 


090H02 


000441 




4671 








4672 


02S404 


011001 




4671 




016101 


002032 


4674 


030412 


01S104 


009002 


467S 


020*1 § 


004717 


02HS4 


4676 


030423 


104401 


02OS10 


4677 


020^26 


000403 




4678 








4679 


020^36 






4180 




011146 




4#S1 


020#40 


30440a 




4S®2 




104401 




4613 




000401 





f HIBTRY 

iTHH K0UT1NI mm OUT IMrOiMAfSOM ABOUT THE FUHCflON THAT WAS 

fnum pmrmm® on the m At the nm qf error hm the function 

I THAT NAB PERFORMED JUST BEFORE THAT fUNCflO^ { WHICH LCD TO 

j THE ERROR), THIS ftQUTMi IS CALLED MHEN AN tmon OCCURi AND 8^ 12 

fIB BET, 



64«g 



Sill 



}|6O0I 
684 8 



111 



foil 



nm 




my 


R1,-<8P> 


my 


9PRBFNC»R0 




e®M 


TYPE 


«MH3 


TYPE 


f MH3 


flf 




Bfh 


31 


IBtB 


(RO) 


BMI 


21 


BIT 


#BIT14«<R0) 


SNi 


41 


f¥PS 


*6S4 


BR 


S4I 


8 Aicig 


✓ DRSSiT ON Dm / 


m 


ia 



I REASff READ CHECK* HWTE* WRITE CHICS? SffilK 
fPOSIflOMSNS CiEiKS 
f CONTROL 



$tnm Aieis btring 

1 1 SET OVCS THE hMlt 



TYPE 
BR 



isi 

/CREBET/ 



If TYPE ASCXZ BTRINO 

HOET 0?SH THE ASCXZ 



TfPl 


(IM 


II TYPE ASCXS STRING 


SB 


SIS 


H«f OVl^ THE Ai€S| 


•ASCII 


/P08ITI0NIN0 


mivt / 


MD¥ 


CR0)#-(SP) 




SIC 


S177770,(8P) 


ffffg DRIVE M0 9 








ii 


44 






CR0)»R1 




MO¥ 


PCMND(Rl) r Ri 


I GO TYPE OUT THE fWCflOU 


M0¥ 




$mim mwmmD 


J8R 


PCTYPFN 




TYPE 


? ns 


II TYPE A8CXE STiSNCI 


M 




OVSP TMI ASCXZ 


.A8C18 








CRl)«»(8P) 


ITYPE OUf DISK ADDRESS 








fYPI 


il$$ 


IfTYPB ASCXZ STRING 


BR 


111 


llGCT OVER THE AiCSg 
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468 4 










j f 738 1 


• ASCIZ 


/ BAs? / 


4685 


020356 








721 1 






4686 


020656 


016)46 


000006 






MOV 


6CR1) ,-(SP> 


4687 


020«62 


1 04402 








TYPOC 




4688 


020464 


1 04401 


020672 






TYPE 


,75$ MTYPE ASCIZ STRING 


4689 


020<S70 


000403 








BR 


748 ; I GET OVER THE ASCIZ 


4690 










1 1 7 5 3 i 


.ASCIZ 


/ WC«/ 


4691 


020700 








748! 






4693 


020700 


01 61 46 


000004 






MOV 


4(R1 ) »-(8P) 


4693 


020704 


104402 








TYPOC 




4694 
















4695 


020^06 


020027 


001464 




4$1 


CMP 


RO, IPSTFNC 


4696 


0207 1 2 


001410 








BEG 


5$ 


4697 


020714 


005720 








TST 


(R0) + 


4698 


020716 


104401 


020746 






TYPE 


i MH1 


4699 


020 7 32 


104401 


020775 






TYPE 


, MH4 


4700 


020726 


104401 


020762 






TYPE 


,MH2 


4701 


020732 


000647 








BR 


6$ 


4702 


020734 


1 04401 


001213 




3$t 


TYPE 




4703 


020740 


01 2601 








MOV 


(SPH# Rl 


4704 


020742 


012600 








MOV 


(SP)*»RO 


4705 


020744 


000207 








RTS 


PC 


4706 


020 '46 


005015 


052506 


041516 




S ASCI1 


«i5»«12&/FUNCTX0N / 


4707 


020754 


044524 


047117 


000040 








4708 


020762 


042440 


051122 


051117 


MH2I 




/ ERROR / 


4709 


020770 


000040 












4710 


020772 


052101 


000 




HH3I 


8 A3CI2 


/AT/ 


4711 


020775 


120 


044322 


051117 


MH4i 


e hBCll 


/PRIOR TO/ 


4712 


02] 002 


0520*0 


000117 










4713 












e EVEN 
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4714 








4715 








4716 








4717 








4718 








4719 








4720 


021006 


010046 




4721 


021010 


010246 




4722 


0?IM2 


010346 




4723 








4724 


021014 


005002 




4725 


021M6 


005701 




4726 


021020 


001404 




4727 


02lft22 


062702 


000004 


4728 


021026 


005301 




4729 


02m30 


001374 




4730 


021032 


016500 


000004 


4731 


021036 


005400 




4732 








4733 


021040 


005777 


160156 


4734 


021044 


100004 




4735 








4736 


021046 


017703 


160152 


4737 


021052 


005403 




4738 


02io54 


160300 




4739 








4740 


02ln56 


022704 


000002 


4741 


021062 


001005 




4742 








4743 


02ift64 


oeoosi 


001732 


4744 


021O70 


003332 


001714 


4745 


021074 


000404 




4746 








4747 


021078 


060063 


001772 


4748 








4749 








4750 








4751 


021102 


005562 


00i??4 


4752 








4753 


021106 


012603 




4754 


021110 


012602 




47S5 


0211 12 


012600 




4756 


02H14 


000207 





f STATSTC 

I AT THE TIME Of ENTRY Rl CONTAINS THE DRIVE NUMBER FOR WHICH THE STATISTIC 
f IS TO BE OBTAINED, R5 CONTAINS THE POINTER TO THE PARAMETER TABLE; FOR 
I THE COMMAND EXECUTED ON THE ABOVE DRIVE, R4 CONTAINS THE FUNCTION CODE 
I (WRITE* READ* ETC) FOR WHICH STATISTICS ARE TO BE TAKEN , 



STATSTC t MOV 


R0 ? «(8P) 


|PUSH RO; R2» R3 ONTO THE 




MOV 


R2,»CSf>) 


I STACK 




MOV 


R3,*C8P) 






CLR 


m 






TS? 


Rl 


|DRIVE Of 




BEG 


as 


j FORM THE OfFSIT FOP THE 


ltt 


ADD 


#4,RS 


1 'WORDS XFERRED COUNTS'- 




DSC 


Rl 


pNWRTLf NRDL 




BNS 


1$ 




2$i 


MOV 


4(RB),R0 


J GET WORD COUNT (RKWC) FROM 




NEG 


RO 


J THE PARAMETER TABLE 




TST 


®RSCS 


1 ANY ERROR DURING THI KFSRf 




BPL 


3* 










>YE8, 




MOV 




fGIT THE « Of WORDS THAT 




NEG 


R3 


I WIRE ACTUALLY X*«RRED 




SUB 


R3,R0 




3§f 


CMP 


»a»R4 


fWUlTf FUNCTION? 




BNE 


si 










$mn$ add tm % or mm® 


4Si 


ADD 


R0,NNRTL<*2) 


1 XFERRED (WRITE) 




ADC 


NWRTH(R2) 


I NOTE IT'S 3-WORD COUNT LO, 




BR 


SS 




ill 


ADD 


RO, NRDL(R2) 


} ADD THE # Of WORDS HEAD 








f NOTE THAT WRT CHK, 








I READ Cm hM ALSO C9N§® 








1 IDERED TO SE 'READ' 




ADC 


NRDH(P2) 


I CARRY QVm W THE HZ WORD 


§§1 


MOV 


(SPH*RS 


ipop rs#m#rq f hom fHi staei 




MOV 


(SP)**R2 




MOV 


cap)+iRo 






Rfi 


PC 





0«KHG„Pit 23»APB«77 



PERFORMANCE 



EXERCISE* MACJil 30C1046) 0&®»JUiy®77 HsSS PAGE 1 OS 
SOUTXNi; TO SIM MEMOES 



757 












758 








jTHIS ROUTINE 


REPORTS ERROR STA 


7S9 
760 


0?1 1 16 


1 04401 


008377 




# MSG26 


761 


02 1 1 22 


013700 


00126 4 


MOV 


DRVPRS, RO 


762 


021 1 36 


012701 


0012§4 


MOV 


#f>DRf Rl 


763 
764 


021 ! 32 


1 04401 


001213 


III TYPE 




76S 


0?1 1 36 


112102 




MOVB 




766 


0711 40 


042702 


177770 


BIC 


•i7777o»*3 


767 


02H44 


010246 




MOV 




768 


021 ? 46 


1 G4403 




TYPOS 




769 


021 ? SO 


003 




e BYT£ 


3 


770 


02 H S 1 






*BYTE 





771 


021 1 32 


J 04401 




TYPE 




772 
773 


021156 


001004 




CLR 


84 


774 


021 1 60 


010203 




MOV 


P.3* Rl 


77S 


02 1 1 62 


001404 




ii@ 


3$ 


776 


2 1 1 S 4 


Q62704 


n ft ft n n A 


31 t ADD 




777 


0? 1 1 70 


OQ5303 




DSC 


S3 


778 


0211 72 


001374 






3® 


779 

780 


021 | 74 


104401 


001©S4 


Hi fYM 




781 


021900 


010446 




MOV 


R4f «(&P) 


782 


021902 


08§7 1 6 


00j7 32 


ADD 


#f*WRTL» CiP? 


783 


021906 


0047 37 


024604 






784 


021912 


004737 


03S014 


j§& 




7®5 


02I91S 


104401 


002664 


TYPE 




its 


021^22 


010446 




MOV 




787 


021934 


062716 


00J772 


ADD 


#NI1DImCSP3 


78S 


021930 


004737 


024604 






7S9 


021 ^34 


0047 37 




J$B 




790 
791 


0?1^40 








R9 


793 
713 


021942 


104401 


002a® 4 


f ypi 




794 


0?l-?46 


01624& 


ooisia 


MOV 


CSECM(R9)»-CSP> 


793 


0219S2 


I0440S 




f YPDI 




79& 

797 


021 914 


104401 


002a® 4 


fYPIS 




798 


021960 




ooiiii 


MOV 


wcECM<Rt)*®<sp) 


799 


02i9§4 


^440*1 

1 0440S 




f¥P9§ 




800 
801 


02S9&S 


104401 


0OS&S4 








021972 


01 &24S 


0017 1 1 


MOV 




i@0 J 


02 1 97S 


042718 


1 V V W V u 


§S€ 


#100000? CUPS 


804 


0?1 ^02 


1 0440S 




f ¥PD@ 




80S 












80b 


021 104 


104401 


0O2©&4 


f YP® 




90 7 




016246 


ooisia 


MOV 


HECN(*9)f *C*P) 


$08 


oam* 


104405 




TYPOS 




1809 










HO 


|@10 


071M6 


OOS300 




©K 


I0S1 


02n20 


001304 




SNg 


1$ 


1812 


021122 


104401 


002414 


?¥PE 





fDOUT TYPE * SSIM«¥f !JO e 



iflMSIHTO WSfSS THE BWVgi f 
$m If HOT 
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0*«4UR«77 S4ISI Mil 109 



31«36 

sius 

02|t3g> 
2H4I 
31144 
J1«0 

21111 

f UIS 

02H&4 
081170 
08M74 



081*74 

Of HOI 
08!«0« 

011415 
Of 1412 
Oil 4i§ 

011414 
091436 

031430 
0S14I4 



011700 
012701 

1O440I 
M3102 
043702 

OI0I4§ 
I 04401 
00$ 
000 
JO4401 
OOS301 
104401 
0SS24# 
JO440S 



001114 
001214 
001313 

177770 



00IIS2 



0O1SI4 
0O1I0I 



4$§ 



IO440I 003664 
0i§§4i eosiii 
104401 

001101 

104401 §01114 
116346 ©04§S$ 
104401 

009300 

0Otl4$ 

004117 036660 



MQV 
MOV 

W§ 
MOVi 
9IG 

TY»M 

8 8Yfl 
8 S¥?I 
fYFf 



mm 

RTf 



•I77770#H9 
K2»"(f») 

3 


•KteN(K3),»Clf» 



t asm hmmm 



$bmn mm onvm mmm 
$pws m itack fm mmm 

ITYWJ If IN OCTAL 

ffffg i mrnhmm 

fgmWM TO I HOW TAttC INOCX 



TYM sSWKII 
TYPOi 

AiH PI 

TYPE fibNKfi 

MOVS IIM€MCH«#^C»S 
TYPOE 



HO 

4$ 

PCTXMYfP 



Iff Pi THE TINE 
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4*42 










4B4J 










4844 










4*49 










4IU6 










4ft 41 










4848 










484® 










48SO 










4R51 










4852 










48S3 










4654 










4855 










4856 










4857 










485B 










4859 


021436 


00S046 






4860 


021 440 


01 2746 


02S446 




4861 


021 444 


000002 






4862 










4863 










4864 










4865 










4866 










4867 










4868 










4869 










4870 


021446 


005237 


00S460 




487! 


021452 


001456 






4P72 


021*54 


103777 


1S7542 




4873 


021 160 


1 00SI4 






4874 










4*75 


021 162 


00S037 


001466 




4876 


021 466 


012737 


177761 


001470 


4877 










4878 


02! 474 


S 05737 


001534 




4879 










4880 










4881 










4882 










4883 










4884 


021*00 


001507 






4885 


021*02 


005237 


001466 




4886 


021*06 


001372 






4887 


0?H10 


005237 


001470 




4888 


021*14 


001367 






4889 










4890 










4891 










4892 


021*16 


il 3700 


00IS34 




4893 


021*22 


042700 


177760 




4894 


021*26 


010003 






4893 


021*30 


062700 


001306 




4896 


021*34 


011037 


001172 




4897 


021*40 


042737 


177770 


001172 



?an?u§ 

»THI8 ROUTINE I| NOPMALLY INffPIB WHIN f HE PftOQRAM ?§ WAXTXN9 fm fHS 

jCQNTBOLLEP TO FJNSIH WHAT If II 00XM6 8 THRWB AW TWO ©BUIK ?ftS@SII0N 

fCOUNtl KCPT IN THIS R0UTSN| 8 

|CICNT,CICNT1 

iTHU COUNT KCCPS TWACK Of HOW Wm fHl eONTRObLE* HA§ SKW lUSf AffM 

COMMAND WAI INITXATeO, fHS eON«Ot,«?§ SHOULD FINISH NHATKVEIt If SS §BIN@ 

i iefobe this count KXPi*Kt, sr it oeii mf § thcm si in error condition and 
iit is so reported, 

iQSCNT 

I THIS COUNT IS INITIALIZED EVERY TIME 8 COMMANDS ARE GENERATED® fHl COUNf 
|IS INCREMENTED EVERY TIMS THIS ROUTINE IS ENTERED, ALL THE 8 COMMANDS 
f SHOULD BE DONE BEFORE THIS COUNT EXPIRES » IF THEY DO NOT AN ERROR CONDITION 
|IS REPORTED, THIS COUNT HAS BEEN KEPT PRIMARILY TO INSURE THAT THE PROGRAM 

jDOES NOT GET CAUGHT IN AW INDEFINITE LOOP* iKAUgE OF AN ERROR CONDITION, 



STATUSl CLR 
MOV 

RTI 



INC 
BEQ 

TSTB 
BMI 

CLR 
MOV 



BEQ 
INC 
BNE 
INC 

BNE 



NIERORf MOVB 
BIC 
MOV 
ADD 
MOV 
BIC 



«e8P) 



QSCNT 
QEROR 

0RKCS 
CN0B8Y 

CICNT 



suit 

CICNT 

CB3Y 
CICNT1 

CBSY 



R0,R3 

#KSY#RO 

CR03*SMG4 

•177770»«REC« 



| DROP PRIORITY AMD WIS FOE XNT 
f RETURN FOR RTI 

I NOTE TH&f THE INTERRUPTS M ALLOWED ONLY 
f AT CIRTAIW PLACES IN f HE PROGRAM, BECAUSE 
I IT MAKES TROUBLESHOOTING OF FALIURES EASY, 

I OTHER PLACES WHERE INTERRUPTS ARE ALLOWED 
pTO TAKE PLACE I 

?*CHFAFN% FIRST INTERRUPT AFTER ISSUING 
»A Si EIC FUNCfXQN 9 



I FOR h NON-SEEK COMANDs 

I INTFLG® BIT ? IS SET* BITS 0<®3 CONTAXW 
1 0FFSET fO THE COMMAND KEY (FROM KEY) $ 
I FOR WHICH THIS INTERUPT IS EXPCTD , 
I WHIN THE INTERUPT OCCURS & * INTHND* IS 

I ENTERED ^SNfFLG 8 * IS CLEARED, 



; TIMED OUT WHILE WAITING FOR THE INTRUPT, 

pOHE OF WE COMMANDS DID MOT INflftRUPf 
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o#»auw-?? i4i ss paqc in 



4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
491 1 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 



021*46 013737 001172 001230 

02t*54 104421 00224S 

021*60 016305 002032 

021*64 016504 000003 

021*70 004737 021736 

021^74 004737 022032 

021*00 104023 

021*02 052710 104000 

02H06 000444 



021*10 005037 001460 
021414 004737 022032 
021420 104026 



QERORf 



MOV 

TYPMgG 

MOV 

MOV 

JSR 

JSR 

ERROR 

BIS 
BR 



CLR 
JSR 

ERROR 



IRSG4, SRDR? 
*MgGlS 

PCMNDCR3)fW 

2<R5),R4 

PCTYPFN 

PC,G?4RG 
2S 



iqet DRivi %>< f ss wim mi Ah s 

fPRINT *mm 9 D2DN*T INTRUPT AfTER* 



SEXIf 



$®Qmm® MfiB so? in mm nesaqb bib 

?MOf INTERUPT OH CWi»lTS0M 9 

lIMDKMI THAf FUM§fION SS AiORTED 



QSCNf 
PC* GTiRG 
26 



p RESif ABLISH COUNT 

I ALL 8 COMMANDS SHOULD BE D0H1 BY HOW« TIMED 
?OUf , THE PROGRAM IS WillfING FOR ONE OF fHS 
jCOMMANDS IN THE Q TO BE FINISHED AND THIS 
I DID NOT HAPPEN OR FOR SOME OTHER RIAION THE 
I 'FINISHED* FLAG (BIT IS) OF ONE OF THE I 
pCOHMAKD KEYS WAS NOT SET ( VARIOUS FLlGS *POS^C»73 
?*BUSY* ff KSYn^S3 CONTAIN IHFORMAflQN 

f ABOUT THE STIfU® OF THE SYSTEM e 



4922 


021622 


032777 


020000 


157310 


BIT 




fINHIilf firaouT? 


4923 


021630 


001024 






BNE 


21 


?YE@ 


4924 


021(132 


104401 


00230S 




TYPE* 


MSG16 




4925 


021*36 


012700 


001306 




MOV 


*KEY*RO 




4926 


021*42 


012701 


001426 




MOV 


»8USY,R1 




4927 


021646 


012702 


177770 




MOV 






4928 


021*52 


104401 


001213 


ill 


TYPE 


,@C»LP 




4929 


021*56 


012046 






MOV 


(RO)*,«CSP) 


fTYPE OUT COifiMTS OF ALL KEYS 


4930 


021660 


104402 






TYPOC 




j KEY-KEYS 


4931 


02H62 


104401 


002662 




TYPE 


i BLNKS3 




4932 


021*66 


005046 






CLR 


-CIP3 




4933 


021670 


112116 






MOVB 


£Ri3*j iBP) 


ffYPE OUT COMfffiHTS OF ALL BUSY FLAGS 


4934 


021672 


104403 






TYPOS 




fBUSY^SUSY? 


4935 


021*74 


003 






9 BYTE 


3 


4936 


02147S 


000 






,BYTE 







4937 


021*76 


005202 






INC 


R2 


IDONII 


4938 


021700 


001364 






BNE 


1$ 


|N0 


4939 














4940 


021702 


004737 


016006 




JSR 


PCf CLRERR 


J MAKE SURS fHS RE IB MO HI&D NOVCHBNT 


4941 














? ANY DRIVE S THEM DO COHfSOL Rliif 


4942 


021706 


000137 


010630 




JW 


BEGNEX 


;GQ« BAK AflD CONIINOB 


4943 
















4944 


021712 


005004 




CN088YS 


CLR 


M 




4945 


021714 


00S204 






INC 


R4 




4946 


021716 


001376 






BNE 






4947 


021720 


013746 


001244 


SEXITl 


MOV 


PPRLVL,«C8P5 




4948 


021724 


012746 


021732 




MOV 


#RTIPC7^C@PS 


1 RETURN FOP RTI 


4949 


021730 


000002 






RTI 




4950 
















4951 


021732 


000137 


OI06S0 


RTIPC7I 


JMP 


QMNGER 
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49S2 








j TYPTN 






4«583 








fROUTINE TU TYPE OUT THE f\ 


4fl4 








i FUNCTION CODE 


AT THS flMI 


4911 








saw n# 


If SET 


INHIBITS TYi 


495t> 














4917 


031736 


0S3777 


030000 


117174 fYPFNf 






49S« 


03P44 


00 103 1 






sjne 


S0 


493© 


0I174S 


020427 


000002 




CMP 


R4,li 


4940 


021733 


001002 






sni; 


18 


4961 


021784 


104401 


002133 




TYPE 


$mm 


4962 


021760 


032704 


000004 


ill 


CMP 


84»R4 


4963 


091764 


001002 






BNE 


31 


4964 


021766 


104401 


002141 




TYM 




4965 


021772 


022704 


000012 


2t§ 


CMP 


#ii»m 


4966 


021776 


001002 






gNi 


IS 


4967 


022000 


104401 


003136 




TYPE 


,MfG9 


496B 


022*04 


022704 


000006 


l$i 


CMP 


#6» R4 


4969 


023M0 


001003 






m 


4$ 


4970 


022*12 


104401 


001141 




TYPE 


*M§@f 


4971 


022*16 


022704 


000010 


411 


CMP 


910#R4 


4972 


022*22 


001002 






MB 


S$ 


497S 


022*24 


104401 


ooiioi 




TYK 


fMS3U 


4974 


023n30 


000207 




§Sf 


Hfi 


PC 



lIUHUXT TYPfOUTt 

rYSs 

I WRITE? 



tRSADt 

f READ CHECK? 
j WRITE CHICK? 
IIWKI 
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OS«»JUM»ff 14181 PA§ 



III 



4975 








4976 








4977 








4978 


0?3*32 


017737 


is?i?a 


4979 


022*40 


017737 


137136 


4980 


0*2*46 


017737 


IS714® 


4981 


022054 


017737 


1S713S 


4QA2 


022oS2 


000207 




4983 








4984 








49*5 








49B6 








49fl7 








498P 








40P9 








4990 


023084 


004737 


0S204O 


4991 


032*70 


010046 




4992 


032n72 


010146 




499! 


033*74 


010246 




4994 


032*76 


012700 


001200 


4995 


022*02 


017701 




499ft 


033106 


010102 




4997 


0221 10 


042702 


177760 


4998 


0*2i 14 


010340 




4909 


0221 16 


006201 




$000 


022120 


006201 




3001 


073123 


oosaoi 




3003 


022124 


001301 




3001 


073136 


010102 




3004 


022130 


042702 




S0O3 


023134 


010240 




S006 


022136 


001301 




300? 


022140 


010102 




800S 


0231*2 


042701 


177400 


§009 


072146 


010240 




3010 


022150 


O0OI01 




5011 


032152 


042701 


177770 


5012 


0221S6 


010140 




SOU 


022160 


012602 




3014 


022162 


012601 




sots 


022164 


012600 




3016 


02316& 


000207 





|QT4RG 

I GET CONTENTS Of RKCi; MMs RKBSs RKDAA 



001170 QT4RGI MOV 

0011I2 GTIRGt MOV 
001164 MOV 
001166 MOV 
RTi 



OKCftt IRIQ0 

IRKD§*$»1« 
PC 



lOCTINF 

tTHxa routine am content* or rkce» mm 9 rkds, then it shiaki down the 

j CONTENTS Of MM INTO IfS COMPONEhTl CYLINDER, IECTOR, iUHfACI AND DRIVE 

inumier. 



oetxnpi dsn 

MOV 
MOV 

MOV 
MOV 



§16 
MOV 

ASR 

km 
km 

M 
MOV 
iS€ 
MOV 

AM 
M9V 

SIC 
MQV 
MAS 

lie 
my 

MOV 



MI 



pcotiro 
ro,-co) 

ftlt« CO) 

Ra*«co) 

0RKDA* Al 

m*m 

•177760#A3 
Ra f *CR0) 

Rl 
Rl 

HI 
Al 

M 9 M 
Ra#»CR0) 

as 

1177490*81 
A9,«<A0) 

as 

#!77770*flt 

R1#*CR0) 

CO) + #*9 

CO)*#*l 

CO)*#R0 

PC 
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5017 








1 CROTLF 




5018 








;CALLi MOV 


#NO,-(SP) j PUSH NO, TO BE ROTATED ON STACK 


5019 








| JSR 


PC, CROTLF 


5020 








I THIS ROUTINE 


ROTATES BITS 15, 14, 13 OF A WORD INTO BITS 2, It 8 THE 


5021 








I REST OF THE 


BITS OF THE ROTATED WORD ARE CLEARED. 


5022 












5023 












5024 


022170 


042766 


017777 


000002 CROTLF! BIC 


»17777f 2CSP) 


5025 


022176 


000241 




CLC 




5026 


022900 


006166 


000002 


FOL 


2(SP) 


5027 


022904 


006166 


000002 


ROL 


2(SP) 


5028 


022910 


006166 


000002 


ROL 


2 ( S'P ) 


5029 


072914 


006166 


000002 


ROL 


2(SP) 


5030 


022920 


000207 




RTS 


PC 


5031 












5032 












5033 








j RG4SDRV 




5034 








;CALL| JSR 


PC, RG4SDRV 


5035 








j THIS ROUTINE 


GETS THE CONTENTS OF RKDS, RKER, RKCS, RXDA, THEN 


5036 








;IT SAVES THE 


DRIVE NUMBER FROM RKDA IN * SRDRV* , 


5037 


022922 


004737 


022032 


RG4SDRI JSR 


PC , GT4RG ; GET RKCS, ER, DS, DA 


5038 












5039 












5040 








1 GTSDRV 




5041 








j CALL J JSR 


PC, GTSDRV 


5042 








f THIS ROUTINE 


EXTRACTS THE DRIVE * FROM RKDA (BITS 15,14,13) AND SAVES 


5043 








; IT IN "SRDRV 


" (BITS 0,1,2) 


5044 












5045 


022926 


017746 


156776 


GTSDRV l MOV 


9RKDA,-(SP) ; GET BITS 15,14,13 FROM RKDA 


5046 


0?2?32 


004737 


022170 


JSK 


PC, CROTLF 


5047 


022936 


012637 


001250 


MOV 


(SP)+* SRDRV ;SAVE THE DRIVE * 


504A 


022942 


000207 




RTS 


PC 
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5049 










»SBTTL DRV. RESET « 


DRIVE RESET ROUTINE 


5050 










j DRV , RESET « 


DRIVE RESET ROUTINE 


5051 










1 IF R/w/S RDY 


DOES NOT SET 


WITHIN A CERTAIN TIME OF DOING 


5052 










| AN ERROR IS 


REPORTED, 




5053 
















5054 


022944 


005037 


022354 




DR.RST! CLR 


TIMOUT 




5055 


072950 


013777 


001502 


156752 


MOV 


QDRV, 3RKDA 




5056 


022956 


01 2777 


000015 


156736 


MOV 


#15'0RKCS 




5057 


022964 


104417 






CON 8 RDY 




5058 


092966 


032777 


000100 


156722 


111 BIT 


»100»9RKDS 


;DID R/W/S RDY SET? 


5059 


022974 


001026 






BNE 


2$ 


J YES 


5060 


022976 


012746 


177760 




MOV 


#»20»"»CSP) 


»N0, WAIT FOP R/W/S 


5061 


022102 


005216 






INC 


(SP) 




5062 


022104 


001376 






BNE 


s »2 




5063 


022106 


005726 






TST 


(SP) + 




5064 


022110 


005237 


022354 




INC 


TIMOUT 




5065 


022114 


001364 






BNE 


18 




5066 


022116 


032777 


020000 


156614 


BIT 


»SW13,?SWR 


f INHIBIT TYPEOUT? 


5067 


022124 


001012 






BNE 


2$ 


?YES 


5068 


022126 


104401 


001213 




TYPE 


, SCPLF 


j TIMED OUT, R/W/S RDY DID 


5069 


022132 


104401 


027746 




TYPE 


»EM4 


} REPORT ERROR 


5070 


022136 


104401 


002206 




TYPE 


, MSG12 




5071 


022142 


011646 






MOV 


CSP)#^(SP) 




5072 


022144 


162716 


000002 




SUB 


#2, (SP) 




5073 


022150 


104402 






TYPOC 






5074 


022152 


000002 






2»! RTI 






5075 


022154 


000000 






TIMOUT! 
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5076 










( so riL 


Gun 8 KEolT "* 


LuNTHOSj KE.S& i fiOUTJ.NL 


5077 
















5078 










; CONTROL RESET 


ROUTINE 




5079 










f 0. UN ( RD X 






SOS 










fwUNiPUy K&AUj 


D fl 1 f Y U 1? 
RUUTlwfc 




















snfli: 




012777 


A A A f\ A 1 

1; U i 


l5oo36 


r> m n st • unv 

W " g WO 1 I "U V 






Srtfl 1 


^« 


UU3UJ 1 






f N ROY f r T,R 


TIMER 






0/2170 




156626 




1 S I TSTB 


PRKCS 


J UiiJ LU" JnUy rtUZ sail i 


5085 


022^74 


100 451 








2S 




5086 


022^76 


0127 -40 


1 777S0 






» w J U t 551 i of J 


• W ft ? T ffrtB rWTDt onv 


5087 


022 402 


005216 






I NC 


C SP3 




5088 


022404 


001376 






BNE 


» w 2 




5089 


052 406 


0057 26 






TST 


C SP) ♦ 




5090 


022^10 


n t\ S *S "3 "? 


00147 2 




INC 


T I MER 




5091 


022414 


001365 








1 § 




5092 


022416 


032777 


020000 


15651 4 


5 


# 1 3 f §SWR 


; INHIBIT iSP&uUT? 


5093 


022424 


001035 








2$ 




§094 


022 426 


1 04401 


002206 




Mr u E 


* M SG 1 2 


; CNTRL RD X DID HOT SET ? REPORT 




022 432 


01 1646 








(6P),«(SP) 




5096 


022 434 


162716 


Ov)OUU<£ 




SUB 


#2, (SP) 




5097 


022 440 


104402 






T i P0C 






5098 


022 442 


104401 








»65S 


fjTYPE ASCIZ STRING 


3099 


022i46 


000421 






BR 


64$ 


;|GET OVER THE ASC12 


5100 










H65$! . *SCIZ 


<15><12>/C0NTP0LLER NOT READY • RKCSs/ 


5101 


022<U2 








64§i 






5102 


022M2 


017746 


156504 




MOV 


?RKCS#-CSP3 




5103 


022^16 


104402 






TYP0C 






5104 


022^20 


000002 






2Sl RTI 
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5105 








5106 








5107 








5108 








5109 








5110 








5111 








5112 


022522 


032777 


020000 


5113 


022530 


001005 




5114 


022^32 


017637 


000000 


5115 


022^40 


104401 




5116 


022*542 


000000 




5117 








5118 


022*544 


062716 


000002 


5119 


022150 


000002 





156410 
022542 



TYPMSG - TYPE MESSAGE ROUTINE CSW|3) 

.SBTTL TYPMSG - TYPE MESSAGE ROUTINE (SW13) 

? TYPMSG 

I THIS ROUTINE IS USED FOR MESSAGE TYPEOUTS, IF SW 13 IS SET THE TYPEOUT 

? IS SKIPPED „ 



|CALL| 
I 



TYPMSG 
POINTER 



TY a MSGl BIT 

BNE 
MOV 
TYPE 
l$f g WORD 



#SW13» iSWR 

2$ 

§CSP) * is 



2$: 



ADD 
RTI 



; POINTER TO THE ASCII MESSAGE STRING 

; INHIBIT TYPEOUT? 
j YES 

; GET POINTER TO ASCII STRING 



; ADJUST PETUPN ADDRESS TO SKIP OVER POINTER 
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„ SBTTL . KWSRVE - KW11L CLOCK SERVICE ROUTINE 
f THIS ROUTINE SERVICES THE INTERRUPT FROM THE KW11L LINE CLOCK 
fkm KEEPS TRACK OF ELAPSED TIME a 

iKWCOUNT- CONTAINS CYCLES {PER SECOND) (2 9 S COMPLEMENT) 
jKWSEC" CONTAINS SECONDS (2*5 COMPLEMENT) 
jKWMIN- CONTAINS MINUTES (2'S COMPLEMENT) 
I KWHR» CONTAINS HOURS (2'S COMPLEMENT) 



25 
26 
2? 

28 022*52 


005237 


001560 


29 022">56 


001401 




30 022560 


000002 




31 022^62 


012737 


177704 


32 022*70 


005237 


001556 


33 022574 


001401 




34 022^76 


000002 




35 022600 


012737 


177704 


36 022*06 


005237 


001554 


37 022412 


001005 




38 022*14 


012737 


177704 


39 022*22 


005237 


001552 


41 022*26 

43 


000002 




44 

45 

47 022*30 


01 3746 


022652 


48 022*34 


005237 


022654 


49 022*40 


001375 




50 022*42 


005216 




51 022*44 


001373 




52 022*46 


005726 




53 022*50 


000207 




54 022*52 


177730 




55 022*54 


000000 





001560 ill 



001556 2SI 



KWSRVE J INC 

BEQ 
RTI 

MOV 
INC 
BEQ 
RTI 
MOV 
INC 
BNE 
MOV 
INC 



KWCOUNT 
It 

#<®60i,KWCGUNT 
KWSEC 

2$ 

%"»60q , KWSEC 

KWMIN 

31 

#-60«# KWMIN 



;COUNT 60 CPS 
; OVERFLOWED? 

; RESET 60 CPS COUNT 
jCOUNT SECONDS 
j OVERFLOWED? 
1 RETURN 

; RESET "SECONDS" COUNT 

;COUNT MINUTES 

> OVERFLOWED? 

; RESET "MINUTES" COUNT 

;CQUNT HOURS 

j RETURN 



j WATIME 

f ROUTINE" PROVIDES SOME WAITING TIME, 



WATIME: 


MOV 


28,-CSP) 


;COUNTER VALUE 


IS! 


INC 




;COUNT 




BNE 




; HANG IN THERE UNTIL COUNT WRAPS 




INC 


CSp) 


jCOUNT AGAIN 




BNE 




;G0 THROUGH MINOR LOOP AGAIN 




TST 


(SP) + 


1 RESTORE THE STACK POINTER 




RTS 


PC 


j RETURN 


285 


.WORD 


177730 


> VALUE FOR APPROX 15 SEC DELAY 


33 1 


, WORD 





j 'MINOR* LOOP COUNTER 



DZRI 
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>CHPDRS 

I THIS ROUTINE CHECKS IF THERE ANY DRIVES PRESENT CON LINE), IF THERE 

j ARE, A RETURN IS MADE, IF THERE ARE NONE PRESENT, A MESSAGE IS PRINTED OUT, 

; THE STACK POINTER IS RE-INITIATED TO 1 100 AND CONTROL IS TRANSFERRED 

;T0 THE END OF PASS ROUTINE, $EOP, BEFORE PASSING CONTROL TO $EOP, SOME 

j TIME IS KILLED (WATIME) , THIS IS DONE TO KEEP THE NUMBER OF MESSAGES 

> (END OF PASS #X) TO A SMALL AMOUNT, 



»4 022*56 005737 001264 

5 022*62 001401 

■6 022*64 000207 

'7 022*66 104401 002225 

8 022*72 004737 022630 

9 022*76 012706 001100 
022702 000400 



chdpps: 


TST 


DRVPRS 




BEQ 


!$ 




RTS 


PC 


181 


TYPE 


,M6G14 




JSR 


PC, WATIME 




MOV 


#STACK,SP 




BP 


8E0P 



; any drives present? 
;no 

: YES, EXIT 

jNO, GIVE A MESSAGE 

; KILL SOME TIME 

.•REINITIALIZE STACK 

;G0 TO END OF PASS ROUTINE 
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5172 








9 SBTTL 


END OF 


PASS ROUTINE 




5173 
5174 








1 f 


5175 








f ^INCREMENT THE 


PASS NUMBER (3PASS) 


5176 








VINDICATE END- 


OF-PPOGPAM AFTER 


1 PASSES THRU THE PROGRAM 


5177 








!#IF THERES A MONITOR GO TO IT 




5178 








l»IF THERE ISN' 


T JUMP TO BEGNEX 




5179 
















5180 


022704 






$ EQP ; 








5181 


022704 


000004 






SCOPE 






5182 


022706 


005037 


001102 




CLR 


STSTNM 


• j ZERO THE TEST NUMBER 


5183 


022712 


005237 


001100 




INC 


SPASS 


; ; INCREMENT THE PASS NUMBER 


5184 


02271 6 


042737 


1 00000 


ooiioo 


BIC 


S 100000, SPASS 


; j DON'T ALLOW A NEG, NUMBER 


5185 


022724 


005327 






DEC 


CPO + 


; j LOOP? 


§186 


022726 


000001 




SEOPCTi 


.WORD 


1 




5187 


022730 


00 3013 






BGT 


SDQAGN 


? j YES 


5188 


022732 


012737 






MOV 


C PC 5 + 1 % C PC ) * 


; ; RESTORE COUNTER 


5189 


022734 


000001 




IENDCTI 


„WORD 


1 




5190 


022736 


022726 






SEOPCT 






5191 


022740 


01 3700 


000042 


6GET42: 


MOV 


(3#42 r R0 


; j GET MONITOR ADDRESS 


5192 


022744 


001405 






BEQ 


SDOAGN 


; ; BRANCH IF NO MONITOR 


5193 


022746 


000005 






RESET 




If CLEAR THE WORLD 


5194 


022750 


047 1C 




SENDAD: 


JSR 


PC, (RO) 


j? GO TO MONITOR 


5195 


022752 


240 






NOP 




If SAVE ROOM 


5196 


022754 


000240 






NOP 




; j FOP 


5197 


022756 


000240 






NOP 




; >ACT1 1 


5198 


022760 






S D A G N J 








5199 


022760 


000137 






JMp 


3(PC)+ . 


I j RETURN 


5200 


022762 


10630 




$RTNAD| 


.WORD 


BEGNEX 
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5201 










.SBTTL 


TTY INPUT ROUTINE 




5202 


















5203 












§204 










a ENABL 


LSB 






5205 


















5206 










j | 


5207 










j ^SOFTWARE SWITCH REGISTER CHANGE ROUTINE, 


§208 










f *ROUTINE IS 


ENTERED FROM THE 


TRAP HANDLER, AND WILL 


5209 










I»S£RVICE THE 


TEST FOR CHANGE 


IN SOFTWARE SWITCH REGISTER TRAP CALL 


5210 










; *WHEN 


OPERATING IN TTY FLAG 


MODE. 


5211 


022764 


022737 


000176 


001140 


SCKSWP: 


CMp 


8SWREG, SWR 


If IS THE SOFT-SWR SELECTED? 


5212 


022772 


001074 








BNE 


158 


If BRANCH IF NO 


521 3 


022 '7 4 


1 05777 


156144 






TSTB 


§$TKS 


f ICHAP THERE? 


5214 


023000 


100071 








BPL 


15$ 


; I IF NO, DON'T WAIT AROUND 


5215 


023002 


1 17746 


156140 






MOVB 


i$TKB,-(SP) 


| f SAVE THE CHAR 


5216 


023006 


042716 


177600 






BIC 


#"C1 77, (SP) 


I > STRIP-OFF THE ASCII 


5217 


023012 


022726 


000007 






CMP 


87, CSPH 


| | IS IT A CONTROL G? 


5218 


Q23016 


0010 6 2 








BNE 


15S 


I |N0, RETURN TO USER 


5219 


023020 


123727 


001134 


000001 




CMPB 


8AUT0B, #1 


I 1 ARE WE RUNNING IN AUTO-MODE? 


5220 


023n26 


00H56 








BEQ 


15S 


; 1 BRANCH IF YES 


5221 


















5222 


023030 


104401 


023511 






TYPE 


, 8CNTLG 


; >ECHO THE CONTROL-G <"G) 


5223 


023034 


104401 


023516 




SGTSWRs 


TYPE 


, SMSWR 


I | TYPE CURRENT CONTENTS 


§224 


023040 


01 3746 


0001 76 






MOV 


SWREG,»(SP) 


f JSAVE SWREG FOR TYPEOUT 


§225 


023044 


104402 








TYPOC 




1 }G0 TYPE--OCTAL ASCIK ALL DIGITS) 


5226 


023046 


104401 


023527 






TYPE 


,8MNEW 


I f PROMPT FOR NEW SWR 


5227 


023o52 


005046 






1951 


CLP 


-(SP) 


1 | CLEAR COUNTER 


§228 


023054 


005046 








CLP 


-(SP) 


; | THE NEW SWR 


5229 


023056 


105777 


156062 




781 


TSTB 


§8TKS 


| f CHAR THERE? 


5230 


023062 


100375 








BPL 


7S 


| J IF NOT TRY AGAIN 


5231 


















5232 


023064 


117746 


1560S6 






MOVB 


§STKB,«(SP) 


1 iPICK UP CHAP 


5233 


023070 


042716 


177600 






BIC 


* "C 1 77 » ( SP) 


; j MAKE IT 7-BIT ASCII 


5234 


















5235 


















§236 


















§237 


023074 


021627 


000025 




911 


CMP 


C5P)#*25 


J JIS IT A CONTROL-U? 


5238 


0231 00 


001005 








BNE 


10$ 


I | BRANCH IF NOT 


5239 


0231 02 


104401 


023504 






TYPE 


, 8CNTLU 


I ; XES, ECHO CONTROL-U ("U) 


§240 


023106 


062706 


000006 




206 1 


ADD 


#6,SP 


If IGNORE PREVIOUS INPUT 


§24! 


023112 


000757 








BR 


19ft 


f ILEX'S TRY IT AGAIN 


5242 


















5243 


















5244 


0?31 14 


021627 


000015 




10SI 


CMP 


(SP),*15 


I fIS IT A <CR>? 


5245 


023120 


001022 








BNE 


16S 


1 f BRANCH IF NO 


5246 


023122 


005766 


000004 






1ST 


4(SP) 


| | YES, IS IT THE FIRST CHAR? 


5247 


023126 


001403 








BEQ 


H8 


1 f BRANCH IF YES 


5248 


0231 30 


016677 


000002 


156002 




MOV 


2(SP) ,8SWR 


1 | SAVE NEW SWR 


5249 


0231 36 


062706 


000006 




Ills 


ADD 


#6,SP 


1 1 CLEAR UP STACK 


5250 


023142 


104401 


001213 




1481 


TYPE 


#8CRLF 


I f ECHO <CR> AND <LF> 


5251 


023146 


123727 


001135 


000001 




CMPB 


$ INTAG, # 1 


1 | RE-ENABLE TTY KBD INTERRUPTS? 


5252 


023154 


001003 








BNE 


15$ 


1 | BRANCH IF NOT 


5253 


0231S6 


012777 


000100 


155760 




MOV 


#100,§8TKS 


1 | PE-EN ABLE TTY KBD INTERRUPTS 


5254 


023164 


000002 






15$! 


PTI 




I | RETURN 


§255 


023166 


004737 


024414 




16$| 


JSR 


PC8TYPEC 


I JECHO CHAR 


5256 


023172 


021627 


000060 






CMP 




I | CHAR < 0? 
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06«»JUN»?7 14133 PAQH 133 



52S7 


0?l1 76 


0^2420 








BLT 


18$ 


} f BRANCH IF YES 


S2S« 


023900 


021*27 


000067 






CMP 


(SP) f S6l 


MCHAR s» tt 


3219 


023904 


003015 








BGT 


18§ 


J I BRANCH IF YES 


5260 


023906 


042726 


000060 






BIC 


%&0f (SP)* 


> >STRIP«OFF ASCII 


526 1 


0? 3? 1 2 


005766 


000002 






TST 


2(SP) 


fllS THIS THE FIRST CHAR 


526? 


023916 


001 403 








BEQ 


17$ 


j j BRANCH IF YES 


5263 


023920 


006316 








ASL 


(SP) 


J )N0, SHIFT PRESENT 


5264 


023922 


006316 








ASL 


<SP) 


n char over to make 


5265 


023-924 


006316 








ASL 


(SP) 


j > room for new one, 


S266 


023926 


005266 


000002 




17U 


INC 


2(SP) 


1 |KE£P COUNT OF CHAR 


5267 


0?3'32 


056616 


177776 






BIS 


«2(SP), (SP) 


MSET IN NEW CHAR 


5268 


023936 


000707 








BR 


71 


1 1 GET THE NEXT ONE 


5269 


02 3940 


104401 


001212 




180! 


TYPE 


,$QUB8 


?f TYPE ?<CRXLF> 


527 


023944 


000720 








BR 


20$ 


1 1 SIMULATE CONTROLS 


527 1 










S DSABL 


LSB 






5272 


















5273 


















5274 












5275 












ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


5276 










j*CALLl 








9277 










5 $ 


RDCHR 




1 1 INPUT A SINGLE CHARACTER FROM THE 


5278 










I * 


RETURN 


HERE 


1 | CHARACTER IS ON THE STACK 


5279 










I # 






1 J WITH PARITY BIT STRIPPED OFF 


5280 


















5281 


















5282 


023946 


01 1646 






IRDCHR8 


MOV 


(Sp),-(SP) 


If PUSH DOWN THE PC 


5283 


023950 


016666 


000004 


000002 




MOV 


4(SP)*2(8P) 


; | SAVE THE PS 


5284 


023956 


105777 


155662 




1SI 


T8TB 


99TXS 


I f WAIT FOR 


5285 


023962 


100375 








S?L 


i« 


| |A CHARACTER 


5286 


023264 


117766 


155656 


000004 




MOVB 


*STKB,4(8P) 


| | READ THE TTY 


5287 


023972 


042766 


177600 


000004 




BIC 


S*C<177>,4(8P) 


I | GET RID OF JUNK IF ANY 


5288 


023*00 


026627 


000004 


000023 




CMP 


4(8P)#»23 


I lIS IT A C0NTROL»S? 


5289 


023*06 


001 01 3 








BNE 


31 


| I BRANCH IF NO 


5290 


023110 


105777 


155630 




ait 


TSTB 


SITKS 


| | WAIT FOR A CHARACTER 


5291 


023*14 


100375 








BPL 


21 


} I LOOP UNTIL ITS THERE 


5292 


023*16 


117746 


155624 






MOVB 


iSTKBj ®CSP3 


1 | GET CHARACTER 


5293 


o?3*22 


042716 


177600 






BIC 


#""C177, (8P) 


1 | MAKE IT 7-BIT ASCII 


5294 


023*26 


022627 


000021 






CMP 


(8P)*r#21 


; | IS IT A CONTROL-0? 


5295 


023*32 


0O1366 








BNE 


2$ 


1 fir NOT DISCARD IT 


5296 


023*34 


000750 








BR 


1$ 


If YES, RESUME 


5297 


023*36 


026627 


000004 


000140 


3S8 


CMP 


4(5P)r *U0 


If IS IT UPPER CASE? 


5298 


023*44 


002407 








BLT 


48 


| | BRANCH IF YIS 


5299 


023*46 


026627 


000004 


000175 




CMP 


4(SP)>S173 


M IS IT k SPECIAL CH&Rf 


5300 


023*54 


003003 








BGT 




1 | BRANCH IF YES 


5301 


023*56 


042766 


000040 


000004 




BIC 


#40,4(8P) 


1 | MAKE IT UPPER CASE 


5302 


023*64 


000002 






48 t 


RTI 




II GO BACK TO USER 


5303 










j 1 


5304 










>»THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


5305 










|®CALLs 








5306 










i * 


RDLIN 




M INPUT A STRING FROM THE TTY 


5307 










f® 


RETURN 


HERS 


1 | ADDRESS OF FIRST CHARACTER WILL SE 


5308 
5309 










1 # 






1 | TERMINATOR WILL BE A BYTE OF ALL 


5310 


023*66 


010346 






IRDLSNs 


MOV 




If SAVE R3 


5311 


023*70 


012703 


023474 




111 


MOV 


#$TTYIN,R3 


1 | GET ADDRESS 


5312 


023*74 


022703 


023S04 




281 


CMP 


MTTYXN+1,,113 


I f BUFFER FULL? 
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5311 


023100 


101405 








BLOS 


4$ 


PfBR IF YSS 


5314 


023402 


104410 








RDCHR 




II GO READ ONE CH&R&CfER FROM THE TTY 


5315 


023404 


1 1261 3 








MOVB 


(SP)*, (R3) 


1 | GET CHARACTER 


5316 


023406 


122713 


000177 




108! 


CMPB 


8177, (R3) 


HtS IT A RUBOUT 


5317 


023412 


00100 3 








BNE 


38 


If SKIP IF WOT 


5318 


023414 


104401 


001212 




4$l 


TYPE 


* SQUES 


If TYPE A 


5319 


023420 


000763 








BR 


IS 


I jCLEAR THE BUFFER AND LOOP 


5320 


023422 


111337 


023472 




313 


MOVB 


(R|5*9$ 


I ! ECHO THE CHARACTER 


5321 


023426 


104401 


023472 






TYPE 






5322 


023432 


122723 


000015 






CMPB 


*1S»CR3)+ 


I {CHECK FOR RETURN 


5323 


023436 


001356 








BNE 


3$ 


I lLOOP IF NOT RETURN 


5324 


023440 


105063 


177777 






CLRB 


-ICRS) 


If CLEAR RETURN (THE 19) 


5325 


023444 


104401 


001214 






TYPE 


ahf 


I | TYPE A LINE FEED 


5326 


023450 


012603 








MOV 


CSp)*,R3 


1 % RESTORSS R3 


5327 


023452 


01 1646 








MOV 


(SP),-(8P) 


|| ADJUST THE STACK AND PUT ADDRESS Of 


5328 


023454 


016666 


000004 


000002 




MOV 


4(8P)»2(8P) 


n first kBQ.it cuhnkcm on it 


5329 


023462 


012766 


023474 


000004 




MOV 


#8TTYIN,4CSP) 




5330 


023470 


000002 








RTI 




1 } RETURN 


5331 


023472 


000 






981 


.BYTE 





1 I STORAGE FOR ASCII CHAR, TO TYPE 


5332 


023473 


000 








«BY?E 





I I TERMINATOR 


5333 


023474 


000010 






gTTYlNi 


S BLKB 




II RESERVE § BYTES FOR TTY INPUT 


5334 


023104 


052536 


005015 


000 


tCNTLUl 


.ASCIZ 




If CONTROL "U» 


5335 


023111 


136 


006507 


000012 


tCNTLGs 


„ASCZ£ 


/°G/<15»«12> 


flCONTROL ®G» 


5336 


023116 


005015 


053S23 


020122 


SMSWRi 


8 A8CX& 


<is><i2>/shr ■ 


/ 


5337 


023124 


020075 


000 












5338 


023'27 


040 


047040 


053S0S 


SMNSWf 


« A8CIZ 


/ NEW n / 




5339 


023134 


036440 


000040 
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HISS S»A6! 114 



§340 






9341 






5342 






S343 






5344 






53«S 






5346 






S347 






8348 






§34? 






S3S0 


013*140 


011646 


S3SI 


023«i42 


016666 


§383 




0i©04§ 


S3S3 


03JS93 


Q10t4S 


§3S4 


073184 


01624& 


SIM 


03)496 


104411 


$3S§ 


02H60 


oiieoo 


SIS? 


03H63 


OOlOOi 


sssa 


033*64 




5389 




111044 


f 3§0 


033170 


U0I413 


S3SI 


031173 


006 3 t 


S3« 


02$S?4 


OOiiOS 




Of! 8 ?!® 


00630* 


S3S4 


osnoo 


OOilOS 


S363 




006301 




033404 


Q0SIG3 


336? 


0?3«G6 


043716 


S368 






5369 


023M4 


000764 


S370 


023416 


OQS72& 


337 1 


023420 


O10166 


3372 




010237 


5373 


033430 


012602 


S374 


023432 


012601 


S375 


0?3$34 


012600 


5376 


023^36 


000002 


537? 


023440 


000000 



0^0004 090001 



.S1TTL HtLAO hti OCTAL NUMBER FPO« THE TT¥ 

p@TH!§ KOUtXNE WILL HEAD AN OCTAL (&IC1SJ NUMSEfc f ROM THE TTY AND 
$ #GHANQ£ If TO BINARY. 

i *calli 

l« PDOCf ||READ AN OCTO NUMBER 

l« RETURN HIM 1 1 LOW ORDER SITS HHE ON TOP OF THE STACK 

HHSQH ORDER SITI ARE XM SH1QCT 



ISI 



Ml 



177770 



ooooia 

033840 



MSV 


% $W 1 $ » 1 ®f" 2 


; IF CUK it)8i £ir«Wss s 1 OS* 


MQV 


w I Sr J f « I ®fr J 


IPAi»fyi r « u a a fi 


MOV 


R0# ^CiP) 




MOV 




f f rw^ri ?5j Us* i J «fc it 


HOV 




I If pWlsri psj Ufs 


RDblN 




aaHSP&ft S, It » » « « « « fun 

f | Kffl^y AN 


MOV 


CSP #4$ PO 




CLR 


ii 




CL8 


R2 




HOVi 






§i® 


11 




lib 


Ri 


p f ®i 


R9L 


R! 




ML 


Rl 




ROtj 


R3 




AiL 


ftl 


Sl«l 


ROL 


M 




SIC 


f"C?«(8P) 


IflfMI THE AS«S »JU^8 


ADS 


<SP)*»R1 


1 1 ADD IN THIS DIGIT 


BR 


i§ 


ft MOP 


TST 


<8P>* 


SlSLlAH TERMINATOR ?mU STACK 


my 


Riiiaup) 


If SAVE THE RESULT 


MOV 


R3#lHI0CT 




MOV 


csp)*»Ra 


ft POP STACK SMTO R3 


MOV 


(8P)+,Ri 


hpop stack into n 


MOV 




|| POP STACK INTO HO 


RT1 




1 f SETURN 


.WORD 





IfHSSH ORDER BITS SO HiftE 
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DZRKHG.P11 2§^APP-7? 10 i 18 RSAO A DICIMJ^L MUM@fR f^OM THE ?f¥ 

§37^ ,SBTTL READ & DECIMAL NUMBER fM» THE TTT 

S379 

S3S S }IfMIS # ROUTINi # SlLL^ (ASCII)%UMBER PROM THI # TS¥ and 

53R2 f®CH&N@E If TO BINAPI¥ 8 If TOO M&NY CHARACTERS OP JW ILLEGAL CHARACTER® 

§383 j#A!IE READ A 8 f B FOLLO«D BY h CARRIAGI RETURfl»LSKE FESSD WILL BE WJS0 8 

S3U4 f ®TH£ COMPLETE MUHSSR MUST BE RETYPED, THE INPUT II TERMINATED BY THE" 

5385 f#UMft TYPIHG A CARRIAOE RETURN « TMS RJ^MSE Of THE INPUT NUMBER IS 

5386 y*POSXTXVE S27i? TO NEGATIVE I31#§ 9 
§387 I^CALLS 

5308 f» RDDEC ffREAD A DECIMAL MIIMSSH 

53S9 |* RETURM HERE ||NUM§gP IS Q® WP OF THE STACK 

5390 I 
S391 



5392 


023^42 


011646 




ftRDDECl 


MOV 




HffROVSDI aPJ^CI FOR 


3 39 3 


023444 




000004 006002 




MOV 


4(gP5#35C§M 


ijthi imput mrnmn 


§394 


023<^S2 


05 0046 








R0^ISf?5 


ffPUSH RO ON ifACK 


5395 


023SS4 


01014S 






my 


R1 S *-CSP3 


IffUiH Rl QU STACK 


§39& 


0236S6 


01024S 






MOV 




ffPUSH R3 ON STICK 


3 397 


023^60 


10441 1 




ISI 


ROLIN 




y f READ AN ASCIS LINE 


S398 


023462 


012&00 






■MOV 


(SP)^fRO 


IfADDRiSS OF 1ST CHIR S 


S39§ 


023484 


010037 


024010 




MOV 


R6«S$ 


HBAVE INCASI Of BAD INPUT 


S400 


023670 


005046 






CLR 




If CLEAR DAW tf®RD 


S40i 


023472 


003002 






CLR 


m 


llSXON SET POSITIVE 


5402 


023^74 


122710 


ooooss 




CMPS 


C$03 


If SIC IP * MINUS SIM MAS TYPED 


§403 


023700 


001001 






BNE 


31 


If BR If NO MINUS SSdN 


§404 


0237Q2 


113002 






MOVI 


(R0)*»R8 


If SAVE FOR L&TiR USI 


3405 


023704 


tisooi 




3$l 


MOVS 




If PICKUP THIS CHARACTER 


5 408 


023706 


001424 






Bf.Q 


3$ 


it get out if mm 


§407 


033710 


133101 


000010 




CMPS 


•'0#R| 


If MAM SURE THIS CMaRACTM 


§40 8 




0O3OI3 






set 


§$ 


If IS & DIGIT BETNEEN ft 9 




033716 


12S701 


0000?! 




CMfS 






5410 


023^32 


00243? 






iLf 


§1 




5411 


0S3714 


033HS 


110000 




BIT 


••CTTIf ,(SP) 


ifDGtFf lit mmm git to bis 


3412 


023?30 


001034 






BNI 


IS 


If SR If NUMBER MOUbO QV1RFLOW 


S413 


023132 


OOftJi* 






k&h 




f f»3 


5414 


023734 


Oll§4® 






MOV 


(SP)»«(8») 


n save r@a LIMP 


S419 


07%"fU 


006316 






k&h 


C»P> 


11*4 


S416 


023740 


OOlllfi 






h$b 


(BP) 




5417 


023742 








ADB 


CSP)*»(8P) 


f p®10 8 


S4t@ 


023744 


I0241S 






iVS 


Si 


pfOVERfLOW SSN*T ALLOM1D 


9419 


023746 


1S2701 


000010 




sui 




llSTRIP MM THE ASCII aUWIC 


S420 


02S7S2 


0&0116 






ADD 


Ri,(BP> 


1 f kBD IN THIS DISIf 


S421 


02I7S4 


102411 






BVS 


§$ 


IfOVERFLOM ISM^T &LL0«D 


S422 


02|7| 6 


0007S2 






m 


1$ 


II LOOP 


5423 


023760 


oosiot 




111 


Tit 


m 


hCheck if mmm is nm 


5414 


021702 


001401 






Bl@ 


4S 


IfBR If WO 


5 425 


0237S4 


00S41fo 






NEO 


CSPS 


i itm^umm the mmm 


S42S 


0237#& 


otitis 


000012 


IS? 


my 




If SAVE THE RESULT 


S427 




013S03 






MOV 




}| POP STACK SMfO M 


S43® 


023*914 


0S3I01 






MOV 




II POP STACK INTO PI 


§429 










my 


(SP)^»RO 


II POP STACK WO RO 


S430 


02400® 


000002 






RTI 






S4SI 
















S433 


0f4ft02 


umm 




IS 1 


TST 




iiclean §kmikh mmm mm stack 


S4J3 


©24604 


t 010 JO 






cum 


CP03 


If BET & TERMINATOR 
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§434 0?4«06 104401 TYPF M TYPE THE INPUT UP TO AAO €H&R 8 

S435 o?4nlO 000000 6SI ,*URD flPOXNTCR GOSS Mgftg 

543ft 024M2 1 "4401 001212 TYPf igQUES Iff* ^Cft" S^Lr 15 

9437 024fl16 000730 IS f j THY AGAIN 
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5438 

5439 
5440 

544 1 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 

545 1 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
§462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
S481 
5482 
54«3 

5484 
3485 
3486 
5487 
5488 
§489 
S490 
§491 
5492 
§493 



024n20 
0?4020 
o24r>22 
024fl24 
024026 
024^30 
024*32 
024036 
024042 
024n44 
074046 
024054 
024056 
0?4o62 
024066 
024n70 
024o74 
024o76 
0241 00 
024102 
0241 04 
0241 06 
0241 10 
0741 12 
0241 14 
0241 16 
0241 20 
0741 22 
0241 30 
024134 
0241 40 
024142 
0241 44 
024150 

024152 

0141S4 
024156 
074160 
024162 
024164 
024172 
024174 
024i76 
024900 



010046 
0101 46 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
1 12766 
005000 
012703 
112723 
0O5002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
1 03003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 

003002 
010502 
000764 
105726 
100003 
116663 
105013 
01260S 
012603 
012602 



020200 
000020 



000055 000001 



024134 
000040 



000001 
000060 
000040 



177777 



.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

F»THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5«DIGXT 
j»8IGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING ON WHETHER THE 
f »NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
I •BEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
f *REPLACED WITH SPACES, 
1 *CALLl 
|» 
»# 



2$t 

3i§ 



i$s 
7*1 



177777 177776 



MOV 


NUMf*C8P) 


TYPDS 




MOV 


R0,-(8P) 


MOV 


Rl^CSP) 


MOV 


R2,»(8P) 


MOV 


R3,-CSP) 


MOV 


R8,«*CSP) 


MOV 


f 20200, -(ftP) 


MOV 


20CSP)»RS 


BPL 


If 


NEG 


m 


MOVB 




CLR 


RO 


MOV 


SSDILK, RJ 


MOVE 


t° ,(R3)* 


CLR 


H2 


MOV 


$DTBL(R0)?R1 


SUB 


RI # R5 


BLT 


41 


INC 


m 


BR 


31 


ADD 


Rl^Rl 


TST 


R2 


BNE 


@$ 


TSTB 


(8P) 


BMI 


7$ 


ASLB 


CSP) 


BCC 


61 


MOVB 


1(SP)^1CB3) 


BIS 


#'0*R2 


BIS 


# s #R2 


MOVB 


RS#CR3H 


TST 


(R0)« 


CMP 


RO,»iO 


BLT 


3$ 


B6T 


8S 


MOV 




BR 


m 


TSTB 


(SP)* 


BPL 


9$ 


MOVB 


•1(5P),<>2CR3 


CLRB 


CR3) 


MOV 


C8p)*#RS 


MOV 


(SP)*,R3 


MOV 


C8p)*,R2 



Mf»Uf THE BthhM NUMBER OH THE STACK 
H GO TO THE ROUTINE 



I f PUSH RO ON STACK 

fl PUSH Rl ON STACK 

I | PUSH R2 ON STACK 

MPUSH R3 ON STACK 

J >PUSH m ON STACK 

i | SET BLANK SWITCH AND SIGH 

? I GET THE INPUT NUMBER 

IIBR IF INPUT IS P0g 9 

f| MAKE THS BINARY NUMBER POB, 

f| MAKE THE ASCII NUMBER NE6« 

$ f ZERO THE CONSTANTS INDEX 

If SETUP fHI OUTPUT POlUTfR 

IfSEf THE FIRST CHARACTER fO A BLANK 

If CLEAR THE §CD NUMBER 

t t GET THE CONSTANT 

I ; FORM THIS BCD DIGIT 

JJBR IF DONE 

f? INCREASE THE BCD DIGIT B¥ | 

f f ADD BACK THE CONSTANT 
} f CHECK IF BCD DIGIT«0 
j I FALL THROUGH IF 

tpSTILL DOING LEADING O ff Sf 

tim if rm 

I f MID? 

f f BR If KO 

f |¥Eg®»«$lT THE MOM 

I f MAKE MS BCD DIGIT AICIS 

I f MAKE IT A SPACE If HOT ALREADY A DIGIT 

If PUT THIS CHARACTER IN THE OUTPUT BUFFER 

J J JUST INCREMENTING 

1 f CHECK THE TABLE INDEX 

ff GO DO THE NEXT DIGIT 

If GO TO EXIT 

1 f GIf f HE LSD 

MGO CHANGE TO ASCII 

SfNAS THE LSD THE FIRS? NON»ZEROT 

If BR IF NO 

p}YSS*«*8ET THE SIGN FOR fYPIMG 
| f SIT THE f ESTIMATOR 

I I POP STACK INTO RS 
IfPOP STACK INTO m 
|p POP STACK INTO R2 



MD-1 \ -DZP^Hl 
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UZPKHG.P1 i 


25«APP"»77 


1 o S i g 




n?4->02 


o 1 2 4 >0 1 




^ _ 


7 4 7 4 


1 2* Ou 








1 4 4 < ' 1 


2 4 2 3 4 


' - 




n J 6ftftb 


o o 2 


3 49R 


7 4 7 2 


i 7 6 I <S 




5*99 


074-?27. 


00 2 




"5500 


02*724 


0? 1420 




5501 


7 4 2 6 


1 7 5 




550? 


074730 


000144 




5503 


074732 


OOOOt 2 




5504 


024734 


000004 







( flp ) ♦ # 




j j POP STACK INTO Rl 


NOV 


( SP ) * # 


go 


f f pop STACK INTO PO 


TYPE 


# SDBLK 




If NOW TYPE THE NUMBtR 




2 ( gp ) , 


4 ( SPJ 


II ADJUST THE STACK 


MOV 


C Sp)* f 


( BP) 




8TI 






1? RETURN TO USE* 


10000 , 








1000, 








100, 








10 s 








a 8LKH 


4 







i -DZP K Hn„ PK1!»RK05 PERFORMANCE EXERCISES MACY11 30(1046) OWUf^ll 1 4 § § 3 PASS 139 
DZFKHG.Pl * 25™APP»77 1 o I 1 P TYPE ROUTINE 



3505 








S SBTTL 


TYPE 


ROUTINE 




5506 
















•550 7 










5509 








$ ^ROUTINE TO 


TYPE ASCII MESSAGE 


. MESSAGE MUST TERMINATE WITH A BYTE. 


5509 








p«THE ROUTINE 


WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED* 


S 5 T 








f»NOTKl ( 


t null contains 


THE CHARACTER TO BE USED AS THE FILLER CHARACTER 


551 1 








|®N0TE2i 


triLLs CONTAINS 


THE NUMBER OF FILLER CHARACTERS REQUIRED ( 


5512 








f»N0TE3l 


IFILLC CONTAINS 


THE CHARACTER TO FILL AFTER, 


551 3 
55 ! 4 








l»CALLl 








5515 








t*l) USING A 


TRAP INSTRUCTION 




55 1 * 








I * 


TYPE 


, MESADR 


nMCSADR IB FIRST ADDRESS OF AN ASCIZ STRING 


55 ' 7 








l»OR 








551 q 








t *> 


TYPE 






5519 








j# 


MESADR 




5520 








1 $ 








*521 
















5522 


024-944 


1 057 37 


001137 


3 TYPE 5 


T8TB 


ITPFLG 


ffIS THERE A TSRMIN&L? 


5523 


074750 


1 00002 






BPL 


IS 


1 j BR IF YES 


55 2 4 


024752 


000000 






HALT 




1 f HALT HERE IF NO TERMINAL 


5525 


024954 


000407 






BR 


3S 


M LEAVE 


5526 


024756 


010046 




ISl 


MOV 


RO,»CiP) 


tfSAVE RO 


5527 


O24760 


017600 


000002 




MOV 


•2(SP),P0 


1 1 GET ADDRESS OF ASCIZ STRING 


552R 


074764 


112046 




2*1 


MOVB 




If PUSH CHARACTER TO BE TYPED ONTO STACK 


5529 


024766 


001005 






BNE 


4$ 


fj BR IF IT ISN'T THE TERMINATOR 


5530 


024270 


005726 






TST 




;|IF TERMINATOR POP XT OFF THE STACK 


5531 


024772 


012600 




6011 


MOV 


CSPH»P0 


If RESTORE HO 


5532 


024974 


062716 


000002 


ISl 


ADD 


• 2# CSP) 


M ADJUST RETURN PC 


5533 


2 410 


000002 






RTI 




j ; RETURN 


55 34 


024102 


122716 


000011 


4@ f 


CMPB 


•HT# C8P) 


1 f BRANCH IF <HT* 


5535 


024106 


001430 






BEG 


m 


5*536 


024110 


122716 


000200 




CMPS 


#CS$LF, (§P$ 


1 f BRANCH IF NOT 4QMh¥$ 


5537 


024 11 4 


001 006 






SNE 


ss 




5538 


024H6 


00S726 






TST 


cap?* 


$$PQP <C*>«Iir> EQU7V 


5539 


024120 


104401 






TYPE 




1 f TYPS A CR AND LF 


SS40 


024122 


001213 






SlCRLf 




5541 


024124 


105037 


024460 




CLRS 


ICHARCNT 


I | CLEAR CHARACTER COUNT 


5542 


024130 


000755 






BR 


a# 


J 1 GET NEXT CHARACTER 


3543 


024132 


004737 


024414 


ISi 


JSR 


PC # |TYPEC 


If GO TYPE THIS CHARACTER 


5544 


024136 


123726 


00 i 136 


§si 


CMPB 


iriLbC«(fP)+ 


fllS If TIME FOFI FILLER CHARS, 7 


594$ 


074142 


001350 






8NE 


31 


I JIF NO GO GET NEXT CHAR, 


5546 


024144 


013746 


00U54 




MOV 


$NULlij»CIf ) 


j i GET # OF FILLED CH&RI 8 WIEDED 


5547 














1 | AND THE NULL CHAR, 


5548 


024150 


105366 


000001 


7$ 1 


DgCS 


icsps 


ffDOCf A NULL NEED TO IE TYPED? 


5549 


0241S4 


002770 






BLT 




1 f BR IF NO«*GO POP THE NULL OFF OF STACK 


5550 


024^56 


004737 


024414 




JSR 


PCtTYPCC 


|»G0 TYPE A NULL 


8551 


024162 


105337 


024460 




OECi 


8CHARCNT 


||D0 NOT COUNT AS A COUNT 


5552 


024166 


000770 






BR 


71 


f i LOOP 


5553 
















5554 








fHQRIZOMTAk f&§ PROCESSOR 




55§?S 
















5556 


024*170 


1 12716 


000040 




MOVS 




IfRIfL&CI TAB WITH BPACE 


§557 


024^74 


004737 


024414 


901 


JSR 


PCjgfYPEC 


PI TYPE h SPACE 


5558 


2 4*00 


132737 


7 


034460 


BITS 


f 7,|CHAftCNT 


1 | BRANCH IF NOT AT 


5559 


024406 


001372 






BNE 


91 


f j TAB STOP 


SB60 


G24H0 


005726 






TST 


CSpH 


IfPOP APACE OFF iTACK 



M9«S 
DM* 



-OlP*Hfl, fiKt l«RK0S PERFORMANCE EXERCIIER MlfVH JQdMft) oa-JUNOI HiSl RACE HP 

10.P11 3s«sp»»?7 tens type poutink 



034 U3 


0M734 










31 


MSB? NSXf CHARACTER 


024414 


ly|7?7 


114110 




iTYPECl 


TITS 




IMAST UNTIL PRINTER II READY 


Q2443Q 


loom 








HPL 


ITYPEC 




094423 


116677 


oooooa 


IS4S18 




MO VI 


ICSPhllfPI 


II LOAD CHAB TO IK TYPED INTO 0&f A REQ, 


014430 




000013 


000002 




CMPS 




;fli CHARACTER 1 g&Ml&Qg RETURN? 


074 4 36 


00 I 00 J 








INS 


IS 


lllRANCH If NO 


024*40 


101037 


0144S0 








SCHARCNT 


l|YEI»CLEAR CHARACTER COUNT 


034444 


000406 








SB 


IT*PEX 


iiexit 


034446 


1337"** 


0O0012 


000003 


lis 


gMPl 




||SS CHARACTER h LINE KM! 


024434 


001402 








si@ 


ITOS5X 


fliSANgH If 


0I44S6 


103237 








INCI 


(PC)* 


llCOUNT THE CHARACTER 


024*60 


000000 






tCHARCNTi .word 





IfCHARACTER COUNT fTORAOE 


024462 


000207 






gf¥PE3£§ 


rts 


PC 





DZPKHG.Pl 5 



RK11-RK09 PERFORMANCE EXERCISER MACY1 i S0C104§3 06-JUN»77 £4i§S PASS Hi 
25-APR-77 SOS If? DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 



5575 
5576 








3 SBTTL 


DOUBLE 


LENGTH BIMARY fO 


OCTAL ASCII CONVSRf R0UT1WI 


5577 










>««««««*« 






5578 








|*THIS 


ROUTINE 


WILL CONVERT A 33 


•BIT UNSIGNED IINARY*NUM1H TO*AN 


S579 








1»UN8ICNED OCTAL A8CIZ NUMBER, 




5580 








I&CALL 








5581 








1* 


MOV 


•PNTR»«CSP) 


1 F POINTER TO LOW WORD Of UNARY NUMBER 


5561 








1 * 


ass 


f»C*ll$DB30 


r (CALL THE ROUTINE 


5583 
5584 








l» 


RETURN 




9 STHE ADDRIS1 Of THE FIRST ASCII CHAR 8 il 


5385 
5586 


024*64 


\ 104414 




sdmo? 


SAVREQ 




ft SAVE ALL REGIiTERS 


5387 


024462 


016601 


000002 




HOV 


2(sp)»ri 


Si PICKUP THE POSNTSR TO LOW W0R8 


5588 


024475 


\ 012705 


024603 




MOV 


#$0CTVL4.|| 8S RS 


M POINTER TO DATA TAIL! 


35S9 


024471 


012704 


000014 




MOV 


#I3 S «R4 


ItOO ELEVEN CHARACTER* 

1 f MASK 


5590 


024103 


8 012703 


177770 




MOV 


•"ct#rj 


5591 


024*0« 


> 012100 






MOV 


CR1)*,R0 


n loner mm 


3592 


024MC 


> 012101 






MOV 


CR|)*fRl 


jfHIGH word 


5593 


024M' 


I oosooa 






CLR 


R2 


tlTERMINATOR 


5594 


024M< 


I 110245 




lit 


MOVB 


r2,»crs) 


II PUT CHARACTER SN DATA TAILS 


5595 


024M< 


> 010002 






MOV 


ROjRt 


HdET THIS DIGIT 


559* 


024«42< 


) 005304 






DEC 


R4 


IfCOUNf THIS CHARACTER 


5597 


024^2' 


2 003007 






BGT 


3$ 


1 1 BR If NOT THE LAST DIGIT 


•5598 


024*2' 


I 001405 






BEG 


a$ 


IfBR If IT IS THE LAST DIGIT 


5599 


024S2< 


> 005205 






INC 


RS 


| 1 ALL DIGITS 0ONE»ADJU8T POINTER FOR flRST 


5600 


024*3< 


) 010566 


000002 




MOV 


RS,iCSP3 


5 f ASCII CHAR 8 & PUT IT ON THS ITACK 


5601 


0?4*3< 


1 J04415 






RESREO 




M RESTORE ALL REGISTERS 


5602 


024 a *3< 


> 000207 






RTS 


PC 


M RETURN TO U8ER 


5603 


02454( 


) 006203 




2$S 


ASP 


R3 


; I POSITION THE MASK FOR THE LIST DICXT 


5604 


02454' 


2 006001 




3Si 


ROR 


P4 


H POSITION THE BINARY NUMBER FOR 


5605 


024-44 


1 006000 






ROR 


RO 


H THE NEXT OCTAL DIGIT 


5606 


024«54< 


» 006001 






ROR 


Rl 




5607 


024*5< 


) 006000 






ROR 


RO 




5608 


02455' 


i 006001 






ROR 


Ri 




5609 


024«*5< 


& 006000 






ROR 


RO 




5610 


024^5( 


s 040302 






BIC 


R3*R2 


1 J MASK OUT ALL JUNK 


561 1 


024S6( 


> 062702 


000060 




ADD 




1 $ MAKE THIS CHAR a ASCII 


5612 


024S6* 


i 000753 






BP 


I* 


HGO PUT ST IN THE DATA T&SLE 


561 3 




> 000016 




SOCTVLl 


e BL&B 


14, 


IfRESSRVS DAW TABLE 



J 



1"DZ»*N<?# 

0£PKriG s PI 1 



RKJl-PKOS PERFORMANCE EXERCISER 

|S«&PP»7? SOUS 



MACYil JOM04B) 0*»JUN-77 HiSS PAGE 43a 



DOUBLE LENGTH BJN&iY TO DSC1M&L ASCII CONVEftf WUTSNf 
9 iBTf L D0U1LE LSNQTH BZNm 10 DECIMAL ASUS CONVSf?? BOUTINS 

l*THX8 HOUTINE WILL COMVWT A 33®>§ST BINARY NUMBER TO AN UHIIGN19 

i*DEetMAL cascid number, 1m ixon or the binary number muit §i 
»»positw., 

iipointer to low nord or unary number 



mov 
asp 

RETURN 



•PNTRi«(Bf) 
PCPSSDBSD 





1 0441 4 




| p||«|p | 


SAVREd 






016103 






MOV 




034$ 1 3 


1 1100 


Of 47§4 




MOV 


034414 


81 00§| 


009001 




Xov 


WW #41 filF i 


0244i< 


013301 






C Ml^f Rl 


Of 4 % 3 ^ 


o i §«to§ 






MBV 
NOV 


C is 3 ♦ # M 


0I4fl|& 


OS |7 $7 


..... 
uuwui S 






Of 4$ 34 


01 37Q4 


03471 4 




MOV 


024*40 


01 270S 


0S47 I 1 




MOV 


SUDiWlrHB^jS} SSI? 








SSI 


pf.ia 


IBS 
wis 


03444& 


I i 1 4©| 




III 


SU§ 


C R4-) f Pi 


0I44S0 


OOSiOl 






&w%> 


Kg 


0l4$i* 


1S1S03 






SUB 




034$iH 


002402 






§LT 


1$ 


0348S6 


oosso j 






tut* 


RS 


0$4@§0 


000772 






SB 






06240 i 




ji 1 


^00 




0?44$4 


005S02 






&DC 


R2 


024ftS© 


063401 






&DB 


C P#3 R2 


0?4$70 


022S3S 






CM? 




Q24$72 


yS3703 


OOOOiO 








024*§?§ 


i J 0330 






S4QY1I 




02 4700 


OOS 13? 






DEC 






U 




4S i 







0?47O4 


0^ 1 317 






ifll 


II 


024^06 


!0§020 






CLRB 


CBOH 


024710 


S0441S 






RESREG 




0?47J2 


000207 






rts 




0247i4 


I4SO0O 




BTNPNRs 


14S0OO 




024716 








|g#13 




024730 


1S0400 






1S0406 




024732 


002765 






37SS 




034734 


1 13300 






uiaoo 




02472& 


000230 






IS© 




024730 


04$ 100 






©41100 




014132 


000017 






17 




024734 


103240 






103140 




024736 


oooooi 






1 




014740 


033420 










034743 


000000 






§ 




024744 


001780 






1710 




024746 


000000 











0247S0 


000144 






S44 





If HI URBf AOOREBf OF ABCXB 

111 §U TNI ifAen 



fBAVE RIOXBTIRB 



Of J^ICIS ITRXNO W 



BTRXNO 



BINARY 



BTACR 



I BIT Uf fS DO IS CONVCRNUNB 

lAOORVSB 8F TEN PSWIi 



$emm partial 

ISUBVRACY fM Mala 



| SB If TEN PONER TO XiAROE 
$hW % W PARTIAL 

f LOOP 

f RESTORE SUBTRACTED VALUE 



I MOVE TO TEN PONER 

fCHftHil PARTIAL fO ASCII 
fSAVE Sf 

iDOMSf 

f§i If NO 
^TERMINATOR 

I RETURN 
lieOEOS 

f&.OEOS 

Vl.OEOY 
Ii 9 0i0i 
)X.OEOB 
|1«0I04 
f l.OCOS 
f &.0C09 



m^ii^u^m, «ifti«RK09 ti^fQPMji^ei exerciser mmi i§cso«i 8W#fi s4iii mm m 

as.APR.77 SOI if DOUBLE LINOtM BINARY TO DMXNAI. ASCII COMVBRT ROUTINE 

§fe?0 000000 

§67! OI47S4 0^0012 if »|l«0B0l 

0547S6 000000 

8671 0347&0 0^0001 t ||l«0E00 

S#?^ 0l47i4 000014 IDBCVLI 8 SWS IB, |» RESERVE STORAOE POR ABC IS SfRINO 



MD-lfDlRXM, f f ®BKflS PERFORMANCE EXERCISER MACH1 30C 104©) 0S«»JUN*77 Mill RMS 1S4 

01PKHG 9 PH a§*A?»P^77 101 IS SUPRi * TYPE NUMERICAL STRING, KPLACI LCADXNQ S s 8 it BLANKS 



§§?& 










36?? 










«|67B 










SS79 










56®0 


p25*00 


010046 




aUPRALl 


§&§t 


0?goo2 


OOS037 


oasoio 






0?S006 


016600 


000004 




SS8I 


0?3M2 


000408 






S&I4 










«5SB5 




010046 






8686 


0?SMA 


016300 


000004 




S6S? 


02§«22 


010037 


011070 




86IS 








SUPil 






I087IO 




ill 


3S90 


02Ba30 


00)406 






S8?f 




S §2710 


oooo&q 




9692 


02Sfi3S 


OfHOOfs 






§391 


02Sn4O 


1 12720 


000040 




S694 


02Sfl44 


000770 






§69S 


02Sfl4§ 


00S300 




SSI 




02SflS0 


1 12710 


ooooie 




B697 




OOS737 


021070 






0?S060 


001002 






S694 


02§n§2 


01003? 


osieio 




8700 




10440! 




SSi 


5701 


029170 


000000 




su?a« 


S70S 


0H(\12 


012S00 






8703 


021^74 








§?04 


©2S07S 









t «BTTL SUPPS - TYPE NUMERICAL AK1Z BTRXNQ, RIPMei LEAOXNQ § 9 I IV BbANKI 

8 S«TTt 8UPRSL - TEPI NUMERICAL ASCII ITRINfi* LIFT JUSTIfY 
{NOT f RON SSSMftC 

8§&Vg RO 



I SAVE HO 

fPXCKUP THE POINTER 
tSAVC FOR TYPING 

» TERMINATOR? 

I BR If YSS 

?is THxa hn mm ®0®? 

I REPLACE Sf WSf H ^JINK® 

I BACKUP If i 
lASCZX S S 

|N0 

iYia 

1 60 TYPE 

f RESTORE RO 

f RESTORE THE STACK 

t RETURN 



MOV 


R0#«(SP> 


CLR 


8UP2 


MOV 


4(8P)*R0 


br 


SUP1 


MOV 


RO,-(SP) 


MOV 


4<gP3*RO 


MOV 


R0,SUP8 


TSTS 


CB0 3 


BSQ 


i$ 


CMPS 


# 9 0*CR03 


SNS 


« 


MOVI 


840* (RO)* 


br 


1® 


DEC 


RO 


MOVi 


• # 0# (RO) 


fST 


§UM 


BNE 


S$ 


MOV 


ROjSUPg 


TYPE 




«WORD 





MOV 


(«P)*»RO 


MOV 


cap)*#c*p] 


RTS 


pe 
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5705 








,SBTTL 


INTEGER 


MULTIPLY ROUTINE 




5706 
















5707 
















5708 








)»CALL 








5709 








I* 


MOV 


MULTlPLERj»(SP) 




5710 








,» 


MOV 


MULTIPLICWD,«»CiP3 


5711 








,» 


JSP 


PC« 9f SMULT 




5712 








I* 


RETURN 


If PRODUCT IS ON 


THE Sf&CK 


5713 
5714 








|» 
y * 


STACK 


PRODUCT 




5715 








|» 








5716 








!• 


TOP 


LSi®S 




5717 








j# 


<8>2 






571P 
















5719 


025100 






•MULT| 








5720 


2 510 


010046 






MOV 


R0 ? «CSP3 


MPUSH RO ON STACK 


5721 


0?5i 02 


010146 






NOV 


Rl^CSPS 


If PUSH Rl ON STACK 


5722 


0251 04 


010246 






MOV 


R2 ? -C8P3 


UPU8H R2 ON STACK 


5723 


0251 06 


003046 






CLR 


-CSP3 


II CLEAR THE SIGN KEY 


5724 


0251 10 


016601 


000012 




MOV 


12CSP3 9 R| 


| f GET THE MULTIPLICAND 


5725 


0251 14 


100002 






8 PL 


IS 


UBR IF PLUS 


5726 


0251 16 


005216 






INC 


(SP) 


1 }SET THE SIGH KEY 


5727 


025120 


005401 






NEC 


Rl 


MMAKE THE MULTIPLICAND P08TIVE 


5728 


025122 


016602 


000014 


111 


MOV 




f | GET THE MULTIPLIER 


5?29 


025126 


100002 






BPL 


2$ 


HBR If PLUS 


5730 


0251 30 


005316 






DEC 




SI UPDATE THE SldH KEY 


5731 


0251 32 


0054Q2 






NEC? 


R2 


$$mm THE MULTIPLIER POiTlVI 


5732 


025134 


012746 


000021 


2SS 


&JOV 




ffSET THE LOOP COUNT 


5733 


025140 


005000 






cm 


RO 


j ? SETUP FOR THE MULTIPLY LOOP 


5734 


025142 


103001 




311 


ace 


4S 


ffDOM^T km It MULTIPLICAND a 


5735 


0251 44 


060200 






ADD 


R2 f RO 




5736 


0251 46 


006000 




481 


ROR 


RO 


ffPOSITIQM THE PmUUh PRODUCf MO 


§737 


025150 


006001 






ROR 


Ri 


If THE MULTIPLICAND 


5738 


025152 


005316 






DEC 


(8P3 


H HAS ALL HITS Of THE MULTIPLICAND ill 


5739 


025154 


001372 






BNE 


3$ 


HiR If WO 


5740 


075156 


023616 






CMP 


CSP3* ? CIP3 


MiBOUIsD PRODUCT il MQmm 


5741 


025160 


001403 






BEG 


§$ 


1 f dO TO EXIT IP HQ 


5741 


025162 


003400 






MEG 


RO 


IfYM^^SO MAKE IT 10 


5743 


02S164 


005401 






wm 


Rl 




3744 


0251&S 


005600 






SBC 


RO 




5745 


0251 70 


005726 




SSI 


TSf 




yfCLEAR BIQN XMfO g Off OF STACK 


5746 


025172 


010066 


000012 




MOV 


R0*!3Cag>) 


HPUT THS PRODUCT OM THE STACK CM§*§3 


3747 


023176 


010166 


000010 




MOV 


Rifiocap) 




S74® 


025902 


012602 






MOV 




If POP STACK IITO m 


5749 


025904 


012601 






MOV 


CSPS^sRI 


nPOP STACK INTO Rl 


§750 


025906 


012600 






MOV 


CSP3* S R0 


II POP STICK WTO RO 


5751 


10 


000207 






RT8 


PC 
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§770 
fill 1 




I 1 374® 


00u0|€ 


§77 2 




i 012117 


0i§!l<t§ 


S77 S 


021-93 


» 104400 




§774 


o ji? ii 


i 1 2? ! 1 


03§5t§0 


§77S 


02S13J 


! 011131 




8 77& 




) OlSSIS 


000002 


1777 




J 000001 




S778 
1771 


0?S W 


3 041/ 1 S 


000017 


S780 




> 1 o 4 fi 




S7S 1 


0?S§§< 


i OIOHS 




^713 




i 010143 








1 J Q 14® 




®7$U 


02S9& 


, OOSOli 






0?B)ft< 


I 013746 


oooeit 




0?5«»7' 


; GliifiOS 


000014 




o?an?« 


s 01®SOO 


oooeit 




g?sio 


1 10000S 






02510 


1 loSSSS 


000003 




03S1H 


) 0OS40O 






oasir 


1 001401 






02S1P 


1 OOS&OO 






0?SM< 


i 016602 


oneoio 




02513' 


1 023701 


000001 




025l3« 


> 001413 






0?9U< 


3 00S702 






02M1 


! O03407 






02S13 


1 003011 






o?5U« 


i 052704 


O000OS 




02S14 


1 012700 


111111 




0?§1S 


) 000424 






03515' 


I 00S266 


000001 




02515J 


J 000401 






02516 


) 005402 




5805 


0251& 


> 000241 




5806 


0?§16 


1 000409 




§807 


02516I 


5 006100 





000014. 



O0&OS4 
000004 



0§60I4 



INTEGEP 


DIVIDE 


B 


1 NTEGER 


f CAIjUI 




S * 


MOV 


| * 


MOV 


} * 


MOV 


j # 


JSP 


j * 


RETURN 


5 # 


« W Q 


? ® 




f * 




| ® 








I ® 




»• 


•TACK 


|® 




» & 

1 w 


f op 


? # 


❖ 3 


|D1V| 


MOV 




MOV 




f fl&P 


ISf 


MOV 




MSV 




MOV 




PTS 


Hi 


SIC 
M0V 




MOV 




MOV 




MOV 




g^H 




$0¥ 




NOV 




MOV 




§PL 




DfCI 




NIG 








§§€ 


101 


MOV 




CMP 




if@ 




f If 




ILf 




ISf 




||§ 




M0V 




18 


41 i 


lt$G 




SR 


is s 


NEC 


lit 


CLC 




BR 


ill 


ROL 



low dividend, *csp) 
high dividend#«(0P) 

DIVI0OR»-(0P) 

PC,gDIV 



IMPLIES NO ERROR 
IMpLlE0 ERROR OCCURRED 
«C®ss© DIVSDi OVERfLOM OCCURRED 
"C"«t ATTEMPTED TO DIVIDE §¥ SffRO 



f THE HIGH DIVIDEND MUST EE < %/2 

f as large m the DIVISOP 



j QUOTIENT & REMAINDER km OH THE STUCK 



REMAINDER 

QUOTIENT 

)4,«cop) 

#iS#C§#3 
4(0P>»»4 
aC0P)»4<0P) 



RO^COP) 
R1,«C0P) 
R3»«(0P) 
R1,-<0P) 

«17»'"C0?) 
a4(0»)»ftl 

aa<0P)»ftO 

SS 

ICSf) 
RO 

fti 
RO 

aoc0p)»»a 
»i,Ra 

in 

R0 

41 
§g 

•3«14<0P) 
••1#R0 

fl 

II 
R3 

IS 
BO 



OVERSOW 



MA) %mm 

khh EERO0 



DIVIDE HI 0ERO 



mm 



0AVE eyHRlNf fRAR VBCVOR 
SIf OR TRAP VECTOR 

REPLACE NEM PC 
RC0TORE UW TRAP Vggf 
0AVE P0W 
R60fORE P0W 

0TRIP ANAY CONDXTSON €SBSI 

pmu m on ®mm 

MM 81 m 0TACK 

PU0H R0 ON 0TACK 

PU0H RJ ON 0TACK 

0AVE k PLACE MU 0X0N0 

llfUP THE STIRATXON CSUMflS 

PICKUP THE §!VIB1N© 

CHICK THE 0I0N . 

mtP TRACK Of THE 0SQN 

AMD NEOATE THE mUUhh 

NUM0CR 

PSCKUP THE DXVX0OR 

IP THE DXVX0OR II | 0KXP THE RE0T 

¥11 

CHECK THE 0XON 

DXVX0OR OP 9 SI I m®HQ 

ISf ®V* I ^«C 8 

sif mmmmn w khh mm 

EXIT 

KEEP TRACK QF D1V1I0PS 0XON 

ME@Af| THE NUM0ER 

B^mf FORMIH0 QUQTIlMf 
PO0XTXON Mil*S 



11» 




RK1 S^SKOS 




EXERCX0ER 




S6CI04SJ @#®at» 


• 77 14108 fhm 117 


KHQ 


• Pt 1 




lOt 18 


IMTEOER 


BIVIDg 


ROUTINE 






02S170 


01 0003 






MOV 


m s m 


f CQP¥ 


809 


025^72 


060203 






ADD 




^COMPARE DIVIDEND 1 DSVIIOP 




02S174 


103001 






8€C 


®S 


|SH Sf DIVIDEND > DIVISOR 




025176 


010300 








R3*R0 


?8IMAiNDgR km® THia LOOf 




025400 


006101 






mh 


M 


fQUOflSNT SIf ENTER0 HERE 




025*02 


O0S316 






DEC 


CSPJ 


jDONEf 




023404 


001370 






IN£ 


?S 


pSH IF NO 




025*06 


005701 






fSS 


HI 


fOVIRfLOWf 




025410 


100005 






in 


JOS 


piR IF NO 




07341 2 


052766 


000002 000014 


SXI 




psif **¥® im if turn stafui mm 




025420 


008000 






CM 


m 


|§IT MHAIHDgR TO ALL l«0§ 




023422 


010001 




f$i 


MOV 




ICOPY REMAINDER INTO QUOTIENT 




025424 


005726 




1041 


T0T 




fCLIAH COUMTER FR054 STACK 




02S«26 


00S716 






fSf 


<0P> 


f REMAINDER SiaN CORRECTION NEEDSDf 




02S430 


002004 






SOU 


IIS 


I BR If NO 




025432 


005400 








m 


1 NEGATE R1M&MDER 




02S434 


105066 


000001 




chm 


ICIP3 


tcmm sign 




025440 


005316 






Dig 


tm 


piUT DON'T FORGET QUOTIENT 




02S442 


005726 




Sill 


T0T 


C0P)« 


jQUOTIiNT SIGN CORRECTION NEEDED? 




02S«44 


001401 






BED 




i0R if m 




02S446 


005401 






MEG 


ri 


I NEGATE QUOTIENT 




0254SO 


010166 


ooooao 


%2$i 


MOV 




1 TURN QUOTIENT MO 




02S434 


Oi0O66 


OOOOiS 




MOV 




§M®htHtim TO U0ER 




02S4S0 


012601 






MOV 


(0p)«»R3 


fPOP 0TACK INTO M 




025462 


012S02 






my 


(0p)««Ra 


fPOP STACK INTO m 




02S4S4 


omei 






MOV 


(0P)tf Rl 


fPOP STACK INTO Ri 




02S466 


012100 






MOV 


<0P)**RO 


I POP 0TACK INTO m 




023470 


0126Si 


000003 




MOV 


(0P)*ra(0P) 


pSITUP TO RETURN C0MD1TI0M SOD1I 




02S474 


000002 






MX 




I RETURN 




02S476 


022636 




SSll 


€MF 


CSf3# ? CiP?* 


fPOP THE 0TACK 




O2S«i00 


0O07S3 






m 





) 



MD-1 

DIRK 



•01**H1, RKH-RKOI PCPrOPVAHCE EXERCXSEP *ACY11 30*1046) 06-JUN-77 

6, Pi 1 3S»APP*7? SOUS AND wRSTORE Su«*RS ROUTINES 



14111 PAGfc 1SI 



OJSMO 

0M144 
029190 
025*94 

025164 

023^66 
025170 
075172 
025*74 



01266ft 000913 

012666 000023 

012666 000022 

012666 000023 

O1260S 

012604 

012603 

012602 

012601 

01 2600 

000002 



,sbttl save and ®M?om ro»rs nomium 



i®savs 

f*CALlit 
I* 

5«UPQN 
I* 

l&TOP»® 
y* ♦ 



RO»RB 



«*«*•«*•«•****••«•*««•*•«••*••••*••****•# 



BAVREQ 

RETURN FROM SiAVPIS THE STACK WILL LOOK LIKEi 

®(*iS3 
(♦It) 

RS 
®R4 
P3 

•pa 

so 



•SAVREGl 



10046 




MOV 


R0,-CSP) 


llPUSH 


m 


ON 


MACK 


10146 




MOV 


ri,-csp) 


llWIH 


u 


Oft 


STACK 


10246 




MOV 




MPUtH 


m 


ON 


STACK 


10146 




MOV 


R1,«(8P) 


1 f PUSH 


R3 


QM 


STACK 


10446 




MOV 


R4,*(SP) 


IfPUIH 


R4 


ON 


ISAM 


10946 




mv 




ffFUSH 


RS 


m 


STACK 


16646 


ooooaa 


MOV 


aaciP)»«(SP) 


f If AVE 


Pi 


SF 


MAIM PLQN 


13646 


000012 


MOV 


aa£SP) f ®esP3 


MfAVB 


PC 


8F 


MAIN PLOW 


iUU 


000022 


MOV 


aa(iP)»«MP) 


IllAVl 


Pi 


QF 




16646 


000022 


MOV 


aacfP)»-csp) 


ii mu 


PC 


8F 




00002 




MI 













p®RgSTQRI RO-KS 
f'CALlil 

f# RESR86 
iRESREQt 

MQV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



$#MCIP3 if RESTORE PC 9F CALL 

**SiCIPS | f RESTORE PI OF Ckhh 

tiaaCfP) 1 1 RESTORE PC OP .MAIN PbON 

*$nW1 H RESTORE PI OF HA1N PbON 

ilPQP STACK INTO RS 

*?R4 | | POP STACK INTO M 

♦ #RJ 1 1 POP STACK SMTS SI 
* S R| ffPOP STACK INTO W 

♦ ,Rt ffPOP STACK INTO Rl 
*,R0 |f POP STACK INTO RO 
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eSBTTL 


RANDOM 


NUMBER GENERATOR 


ROUTINE 








j*CALL i 














I* 


JSR 


PC f IRAND 


f CALL THE ROUTINE 








1* 


RETURN 




f RETURN HIRE THE RANDOM 








1* 






1 NUMBER WILL BE IN 








1* 






f $HINUM ? 8L0NUM 


5890 025176 






iRANDi 








5891 025176 


010046 






MOV 




|?U3H RO ON STACK 


5892 025*00 


010146 






MOV 


R1,»C0P) 


fPUSH RS ON STACK 


5893 025*502 


010246 






MOV 


R2,«CSP3 


;PUSH R2 ON STACK 


5894 025*04 


010346 






MOV 




|PUSH R3 ON STACK 


5895 025*06 


010446 






MOV 


R4?»(SP) 


I PUSH R4 ON STACK 


5896 025*10 


017604 


000012 




MOV 


§13(Sf>) s R4 


t GET P01HTSR TO THE SAVED SEEDS 














pfOR GENERATING fHIi RAHDOM KUMSiR 


5898 025*14 


01 1400 






MOV 


CR4)*R0 


;GET LO NUMBER SEED 


5899 025*16 


016401 


000002 




MOV 


2(R4)*Ri 


f GET HIGH NUMBER 3KD 


5900 025*22 


012703 


177771 




MOV 




S SET SHIFT COUHT 


5901 025*26 


005002 






CLR 


M 


IZERO M 


5902 025*30 


006300 




ISl 


ASL 


RO 


iSHIfT RO LIFT AND 


5903 025*32 


006101 






ROL 


Rl 


? ROTATE CARRY INTO U AND 


5904 025*34 


006102 






ROL 


R2 


? ROTATE CARRY INTO R2 


5905 075*36 


005203 






INC 


R3 


iCHECK FOR DONE 


5906 025640 


001373 






SHE 


i$ 


iCONTINUE SHIFT LOOP 


5907 025*42 


061400 






ADD 


CR43#RO 


} ADD NUMBER TO P4&KI JC Of 


5908 025*44 


005501 






ADC 


Rl 


IPROPOGATE CARRY 


5909 025*46 


066401 


000002 




ADD 


3CR4)* Rl 


?AOD MUMBER TO MAKI & &S9 


5910 025*52 


00S502 






ADC 


R2 


;PROPOGATC carry 


5911 025*54 


062700 


001057 




ADD 


#10S?*RO 


1 ADD LOW CONSTANT 


5912 025*60 


005501 






ADC 


Rl 


j PROROGATE CARRY 


5913 025S62 


005502 






ADC 


R2 


IPROPOGATE CARRY 


5914 025*64 


062701 


041401 




ADD 


#47401rRi 


I ADD HIGH CONSTANT 


5915 025*70 


005502 






ADC 


R2 


I PROROGATE CARRY 


5916 075*72 


062702 


000006 




ADD 


#SiRS 


t ADD HIGHEST CONSTART 


5917 025*76 


060200 






ADD 


R2,B0 


fRSPRIMS m WITH HlUHliT DIGIT 


5918 025700 


005501 






ADC 


Rl 


fPROPOOATE CAREY 


5919 025702 


01 0014 






MOV 


m g CR43 


fSAVE RO^SI^ONUM CFOR USU MXT TS«J 


5920 075704 


010164 


000002 




MOV 




}SAVS RI^IHINUM {TO® USE NXT flMEJ 


5921 025710 


012504 






MOV 


CSP)*#R4 




5922 025712 


012603 






MOV 


CSP34>jR3 


|POP STACK INTO m 


5923 025714 


012602 






MOV 


CSP)*,R2 


|POP STACK INTO m 


5924 025716 


012601 






MOV 


CSpJt^Rl 


fPOP STACK INTO Rl 


5925 025720 


012600 






MOV 


(Sp)t # RO 


IPOP STACK INTO RO 


3926 075722 


062716 


000002 




ADD 


#2 f CSP3 


? ADJUST SP FQ5I CORRECT RITURH 


5927 025726 


000207 






RTS 


PC 


I RETURN 


3928 023710 


123456 




RSDRVLi 


1334SS 




$ RANDOM SEED FOR DPSVI SELECTION (LO) 


5929 025732 


176S43 




RSDRVHf 


178S41 




f 55 8 CHS5 


5930 025734 


001201 




RSFUNLf 


1201 




1 RANDOM iKD FOU FUMCTIQM 


3931 02S73S 


062465 




RSFUNHg 


S34SS 




f 83 55 (HI) 


§932 0S1740 


176105 




R8CYLL8 


nsios 




jpanbom mm rem cylinder clo) 


5933 025742 


174532 




RSCYLHS 


174SM 




1 88 15 (Ml) 


5934 Q3S>44 


157650 




RSBALi 


1S7SS0 




1 RANBQM SEED FOi MS *ADDRC8S ihQ) 


5935 02574& 


030753 




RSSAHf 


307S3 




$ « 8 CHI) 


5916 025750 


131547 




R8WCLs 


13134? 




j RANDOM SEED FOP? WO*D COUNT CLO) 


5937 025752 


032070 




RSWCHf 


32070 




f 9 « CHI) 


3938 025754 


123456 




RSDTLf 


1234S6 




f RANDOM SE1D FOR DATA (LO) 


5939 025756 


176343 




RSDTHi 


I7SS43 




1 a « (HI) 
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D8RKHO.PU 8S-APB-77 I OS 1 i BINARY TO OCTAL (A8CXX) AND TYPE 



§#40 










S9#i 










S942 










l«J 










8944 










9949 










8948 










994? 










S§4® 










9949 










9990 










IfSI 










8983 










B99S 










IfSI 










IMS 










9999 










llll 










9999 










9991 










9990 










9991 










9999 










9999 










9994 










§111 


089790 


017446 


000060 




9949 


098744 


114437 


000001 


§11101 


9997 


018771 


113417 


sisioi 




9999 


089779 


043714 


000002 




9999 




000401 






8970 


034104 


1187J7 


ooooei 


088303 


8971 


034ftta 


118717 


000001 


084808 


9971 




141117 


000961 


084803 


Sfli 


094134 


010344 






9974 


094110 


010449 






1171 


094113 


0I0S4I 






9979 


094114 


UI704 


089108 




B«77 


094140 


00S404 






9979 


034143 


OSH0<t 


§09661 




9979 




SI041I 


011104 




9990 


094188 


111704 


034301 




1991 


094184 


01IS0S 


§00011 




stsa 


084*43 


0OS001 






sw 


0§S1§4 


006S0S 






9994 


094144 


000404 






iff! 


039«70 


OOIIOS 






S?i6 




DOS 1 01 






9997 


08#^74 


OOilOi 






9999 


0l4ft74 


010801 






9*99 




004101 






9990 


O84103 


118117 


011104 




9991 


094104 


1000 IS 






9993 




043701 


117770 




§©9J 


0?4i 14 


ootoog 






9994 


084* 14 


001704 






9999 


094130 


001401 







,8BTTb SffeAPY TO 06f&L (ABCXX) AND TYPE 

I#THIS ROUTINE IS USE0 TO CNANOB A 14-BXT UNARY NUMBER TO & S^BIQIT 
F»OCTAL (ABCXX) NUHBER AND TYPE IT, 

l»8TYP08«"ENTER HIM TO fgTUP 8UPPRE88 EER08 AND NUHBER OF DX0XT8 TO TYPE 
I'CAbbl 

f» MOV NUM#-(8P> H NUMBER TO SI TYPED 

TYPSi MCAbb r©H TOfOU? 

»• fl BYYE N ffMasi f© | fm NUMBER OF DXOXTB TO TYPE 

f» .BYTE N if Mil OH 

ft Ml«TYPE bEADXNO WU 

I ® MOvBUPPREBB bBADXNO ISMS 

»*9TYP0N«mBNTBR HERB TO TYPE OUT WITH THE BANE PARANETER8 A8 THE U8T 

p#$tos§ pi 8mee 

l»CAbb| 

j» H0V MUMi^CIPI IJHUMIBR TO II TYPBO 

i« typon ' nOAtiXi por typbout 

f# 

f*9TYP0C«<»*SNYER HIPS POR TYPBOUT OP A II Slf NUMBBR 
9*CAbbl 

ft MQV NUHfCBP) M NUHBER TO SI TYPBO 

»• f¥PO§ f fCAtili fOfl TYPBOUT 



9TYP08I NOV 



8 1 

9TYP0CS MQVS 
HSVI 

9TYP0NI NOV! 

§«¥ 
NOV 
MQV! 
NEO 

MOW 
M8¥I 
MQV 



0C0P)»«(IP) 

CfP)*#|0 
43i (IP) 



III 
ill 



111 



88b 

mh 
mh 
mi 

MOV 
ROb 

ma 
ne 

BNE 
TIT 
BEQ 



4!i40P8Xib 

m$mmmn 

49»90CNT 
Rly(lt) 
M f »(IPl 

RBfCBP) 

90M00B«1«R4 

M 

99 f R4 

40PXbb,R4 

Rl 

SI 
11 
M 

m 

m 

RB«R1 
Rl 

80hode 

i$ 

9177770«R8 

41 
R4 

SS 



pfPSOTP THE NODE 
MbOAD BBRO Flbb SWITCH 
M NUHBER Of DX0XT9 f0 TYPB 
IfAOJUBT RETURN ADDRESB 

1 1 Sit THE BERO Fthh BVXTCH 

mibt fm isicii nmm 

MlBT THE ITERATION COUNT 
MM VI R3 

IfSAfl 114 
§g§£¥! m 

MOST the nunber. m dxoxtb to type 

MtUBTRAGT If fm NAX, AbXiOHEO 

MlAVE If FOR USI 

ii@if mt mm nm mnm 
nmmw the xnput «umiih 

MObEAR THE QUfPUf WU© 
M ROTATE M|l SHfS "C" 

moo do mss 

M^ORN THXB 8S@if 



MOST MS Sf THXB DXOXT 
MTYPB THXB DXOXTf 
MIR If NO 
MOBT RXD m JUMH 

mtbbt roi o 

MlUPPREBB- THII Of 
MIR If YEB 



MD-1 1-DERRH«, RX11*SR09 PERf OUNSNCE KlECIIEi MACYlt 10Ci04#) m^W^l I4HS MSI HS 





23 


i»APB»77 


10119 


BXNARY 


TO OCTAb 


CAficxi) m® 


TYPE 


S994 


0?&^ 12 


00i204 






1P3C 


R4 


MDON'Y SUffRSSS ANYNORE 0*S 




026t24 


os aw 


OOOOiO 




BIB 


4'0»RJ 


IfNAKS THSI DldlT MGll 


S99i 


026130 


0S2703 


000040 


sss 


fli 


®* ,RS 


$ fMAKS ASCII IIP MOT AbREADY 


S9f9 


02SU4 


110137 


0M2O0 




mm 


R>«99 


ffSAvs for tmm 


SOOO 


026^40 


104401 


O2#30O 




mt 




t$QQ fm THXB DXOXT 


SOOl 




10S337 


O2i202 


111 


mm 


90CNT 


IfCOUNT BY i 


6002 




003347 






DOT 


1$ 


Mi^ if mm to so 


&0O3 


02§«§2 


002402 






BbT 


#$ 


IfM SF DOME 


6004 


02Sf S4 


001204 






liC 




MXNBURE bASf DXOXT XBN'T A BbANX 


go OS 




000744 






m 


1§ 


IfSO SO fHS EiiiT D10ST 


SOOi 


0241SO 


O1260S 




SSI 


MOV 


(BP)««R8 


MREBTORE R8 


$001 


0?6142 


O12S04 






MOV 


CBP)*»R4 


MRE8T0RE m 


6009 




012103 






MOV 




$$mmoM m 


6009 




oisias 


000603 


000004 


MOV 




MBBT THE BTACK F8i RBTURNXNO 


&oto 


02St74 








MQV 


(BP)«»(BP) 


§011 


024174 


000003 






RTX 




MRBTURN 


soia 




000 




ill 


.BY-TE 





mbtoraqe ron aseis dioxt 


SOI 3 




000 






.BYTE 





mtbrnxnator POR TYPE KOUTIMI 


1014 




000 




9O0NT1 


• BYTE 





M OCTAb DXOXT COUNTER 


4011 




000 




90rXbbl 


• BYTE 





M8BRO flbb BNXTCH 


S01S 


O?Sf04 


000000 




90N0DEI 


8 WW 





M NUNBER Sr OXOXTB TO TYPE 


1017 

















md»ii-der*m*# hhii-skm performance cxerciber ^cm so c 1 04s 3 n*»dUN»77 hus page hi 

m^m^w is®&pp®77 loiis kkror handler routine 













tote 










AO20 










&oa l 










$0'J2 










SOI! 










f,0|4 










6021 










S03& 




















6028 










$019 










6030 










lull 










6033 










6013 










6034 










&03S 














104407 






60S? 


0?#<H0 


101337 


001103 




601® 




001774 






S039 




IHI777 


ooiioa 


193718 






nia?77 


002000 


113701 


6041 


096932 


001402 






6042 




104401 


ooisos 




6043 


056940 


0GS237 


001112 




6044 










6045 


026144 


032777 


000004 


1S2S&S 


6046 


026^52 


001415 






6047 










ft048 


0?6«?54 


010146 






6049 


0?6?56 


013701 


001250 




6050 


076962 


100410 






6051 










6052 










6053 


026964 


105261 


001542 




6054 


0?6?70 


126127 


001542 


000003 


6055 


0?6?76 


101402 






6056 


026100 


000137 


016312 




605? 










6058 


026104 


012601 






60?9 










6060 


026106 


011637 


001116 




6061 


026112 


162737 


000002 


001116 


6062 


026120 


005046 






6063 


026122 


117716 


152570 




6064 


026126 


121627 


000100 




5065 


026132 


002402 






6066 


026134 


162716 


000040 




6067 










6068 










6069 










6070 










607! 










6072 










6073 











S S§TTL ERROR HANDLER ROUTINE 

s#swis®i halt on error 

I#gwi3®l INHIBIT tmm TYPBOUT* 

f»SN12"l TYPt OUT THE ERROR HSHT0HY* THE FUNCTION THAT 

S mi A B BEING PERFORMED ON RK AT TH£ fSMK Of ERROR MB 

i the function performed prior to that. 

f&NOTI THIS IWSTSH OPTION (123 IS MS&Mf NGFUL ONLY POU ERRORS OCCURXNO IN THC 

^exerciser part of the program* 

f #SWl i©| DUMP OUT ALL RK REGISTERS 

I 0^1 BELL ON ERROR 

f®swo98!i loop on error 

r»8rtOJai TYPE OUT TIME AT WHICH ERROR OCCURED 

j#$WQg@l DROP THi DRIVE &f TUB MAXM gRQR§ ON THIS DRIVE 

f*SWOi«l TYPE OUT THE SERIAL NUMSli Of THE BRRORINO DRIVE 

|®G0 TO IERPTYP ON gRROR 



SERRORl CKlWR 
INgS 

MOV 
BIT 
BEQ 

TYPE 

lis INC 

BIT 
BEQ 

MOV 
MOV 
BMI 



INCB 

CMPB 
BLOS 
JMP 

MOV 

MOV 

SUB 

CLB 

MOVB 

CMPB 

BLT 

SUB 



2#8 



•ERPLO 

•error 

ITSTNMiBDISPLAy. 
•SWIOifSNR 

1$ 

p$Wkh 

•erttl 

•8H2»88HR 

31 

RlfCSP) 

SRDRV*R| 
28 



ERDRV(Rl) 

£RDRV(RS3?« 
21 

D8ELCT 

CSP3*,Ri 

(SP3»*ERRPC 
82,$ERRPC 

-CSP) 

iSERRPCs C@P3 

CSP3»#100 

48 

140* CSP5 



LOOK FOR A 'CONTROL 

SIT THE ERROR PLAti 

DOH*T LET THE PLAS QO TO 1180 

DISPLAY flSf NUMBER &N8 ERROR FLAO 

BILL ON KWIQRf 
NO <® SKIP 
RSN@ SILL 

COUf^T THE MUMilR Of ERRORS 

COUNT # Of ERORS & DROP DHVEf 
NO 

YES 

SAVE El 

GET ERRQRXNO DRIVE # 

If CSRDRV)® SKIP (BECAUSE THE 

EROR WAg NOT ATTRIBUTABLE TO ANY 

SPECIFIC DRIVES 

COUNT f OF ERQRi ON THIi DRIVE 

# OF ERORS GREATER THAN ALLOWABLE? 

NO 

DROP THE DRIVE 
RESTORE Rl 

GET ADDRESS Of ERROR INSTRUCTION 



STRIP AND SAVE THE ERROR ITEM CODE 
FORM THE C04IECT ITEMS IF THIS IS AN 
EROR MESAGE EQUAL OR ABOVE 100, 
NOTE THERE R 2 CLASSES OF ERRORS! 
13 SITEMB'S BELOW 100 
23 BITEMB'S ABOVE 100 

SUBTRACTION FACTOR HAS TOBE SUCH THAT 
THE C04IECT OFFSET IS SELECTED, THIS 
FACTOR WILL CHANGE IF THE TOTAL I OF 

ERROR MESSAGES IN CLASS 1 CHANGES* 
tsslOO -LAST ITEM IN # CLASS I - 1 
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6074 


026140 


012637 


001114 




4SI 


MOV 


CSP3**§!TEM§ 


6075 


026144 


032777 


020000 


182568 




BIT 


»8W13,88HR 


6076 


026152 


001012 








BNE 


SI 


6077 


026154 


004737 


02S472 






JSR 


PC # #S«RRT¥P 


6078 


026^60 


104401 


001213 






TYPE 


,tCRLr 


6079 
















6080 


026164 


032777 


010000 


1325*6 




BIT 


#SWl3s®$WR 


6081 


026172 


001402 








BE® 


SS 


6082 


026174 


004737 


020426 






JSR 


PCjrHISTRY 


6083 
















6084 


026400 


023737 


000042 


00004S 


§§§ 


CMP 




6085 


026406 


001403 








BEQ 




6086 


026410 


005777 


1S2S24 






TST 


saw 


6087 


026414 


100002 








BPL 


s$ 


6038 


026416 


000000 








HALT 




6089 


026420 


104407 








CKSWR 




6090 


026422 


032777 


001000 


isasio 


Si! 


BIT 


ISN09»B8NR 


6091 


O26430 


001411 








BEQ 


7$ 


6092 


026432 


123727 


001114 


000040 




CMPB 


SIfEMl t #40 


6093 


026440 


103011 








BHIS 


81 


6094 


026442 


013746 


001244 






MOV 


PPRLVL,«(8P) 


6095 
















6096 
















6097 
















6098 


026446 


0057 26 








TST 


CSP3* 


6099 


0264S0 


012716 


013726 






MOV 


#S3CCRLUPj (BP) 


6100 
















6101 
















6102 
















6103 


0264§4 


012737 


177777 


001230 


7*1 


MOV 


#^1jSHDR¥ 


6104 
















6105 
















6106 
















6107 
















6108 
















6109 


026462 


000002 








RTI 




6110 


026464 


013716 


001110 




Btt 


MOV 


ILPSRRfCSP) 


6111 


026470 


000771 








BR 


1% 



fSKIP TYPEOUt IF SET 
JSKIP TYPEOUTS 

?G0 TO USER ERROR ROUflME 



I TYPE ERROR HI8T0RTT 
|N0 

5 YE® 

I ACT! I AUTOMIfSC MQDff 
f¥ES» HALT OH ERROR 
; HALT ON ERROR 

I SKIP IF CONTINUE 

; HALT ON ERRORS 

I LOOK FOR A ^CONTROL Q * 

)LOOP QM ERROR SWITCH SSTf 

f BR If NO 

f THERE R 3? ERROR MISSA9ES IN CLAiS I 

?L0e& OUT ALL SMTIRUPTS ON RETURN 
I FROM THIi EROR HANDLER? If fHS 1R0R 
pll IN EXERCISER B L00PSM<3 IB TO 
pil DONS 

$ IF THII ggiOi CALL mB FROM EXERCISER 

pp&rt of TMt momhtti so to ^sxeaLUP* 

fOTHERHIBE RETURM THRU *|LUPIRR* 

f RESIT SIRIAL NO FhAQ 
I If (8RDRV)««lf mm THE SERIAL 
I NO OF THI DRIVE WILL HOT BE 
| TYPED OUT* 

? OTHERWISE? SERIAL MO FOR THI DRIVE 

?# I'd *8RDR¥* WILL il 



/FUDGE RSTURM FOR LOOPING 
f RETURN 



DZR 
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0?® 4?2 


104401 


001213 




BERRTYPlTYPE 


#BCRLF 


0?6 <76 


01 0046 










PO, -C BP) 


026^00 


008000 








CLR 


R0 


026^02 


i|37y0 


001 1 1 4 






SISB 


9i|ZTCMB#K0 


0?6*>0fi 


001004 








8NS 


ii 


26M 


Oj J746 


001 1 s§ 






&SQV 


6ERRPC#«(BP) 


0?6^ 1 4 


104402 








TYPOS 




026^16 


00042S 










Si 


0261JJ0 


OOS300 






III 


Dge 


id 


03*133 


001 100 








M 


is 


0?S 5 ?24 


004300 








AIL 


RO 




006300 








AIL 


MO 


02®^ 10 


Oft3700 


OOSS&S 






kPQ 




026 s ? 34 


01203? 


03i§44 






MOV 


(ftO)+f 21 


026^40 


OU 1 494 








BEQ 


4$ 




104401 








f f PI 






000000 






SSi 


,MOftD 






104401 


OOliS! 




31 1 


f YPI 


#$crlp 


026^12 


32 7 77 


004000 


1831*0 


411 


Sit 


#SWIS*f§W8 


osbibo 


001404 








if o 


s@ 




004737 


011033 






JSR 


PC«OMPRE0 




104401 


OOiSi S 






f ¥P1 


*tCftbr 


0?ft"572 


012017 






i§i 


MOV 


(RO)*fBf 




001404 








116 


f$ 


0?6*00 


104401 








TYPE 






000000 






Hi 


.N0R6 





0?iMQ4 


104 401 


001313 






TYMB 


*icplf 


03^«U 


on ooo 






?Si 


MOV 


CRO)t RO 


o?6*i3 


00140& 








IBS 




026414 


01 304$ 






III 


MOV 


*<|IO) + r«<BP) 




10440S 








woe 




0?S«0 


104401 


O03S#3 






TYPt 


#BLNKB3 


026334 


00S710 








fSf 


CRO) 


026326 


001 373 








8NE 


ss 


026430 


012600 






fis 


MOV 


(SP)*#RO 


026432 


104401 


001213 






TYPE 


#$crlf 


02IH3S 


123727 


0011S4 


000040 




CMPB 


BITEMB* 940 




103004 








3H£S 


101 




004737 


026SS0 






JBR 




03M53 


004737 


0S#7iS 






JBR 


PC#BNOTYP 


0264S6 


000207 






10«| 


MI 





s SSTfL ERROR MBSSAGi TYPEOUT POUTINE 

?®THX§ ROUTINE USES THE * ITEM CONTROL SYTg" (IITEMB) TO DETERMINE ^HSCM 

fftKRROR IS TO BE REPORTED a IT THEN OBTAINS, FROM THE "ERROR TABLI® (BERRTB), 

f ®hNO REPORTS THE APPROPRIATI INFORMATION CONCERNING THIS 1RR0R 4 



f "CARRIAGE RETURN" § "LINE FEED 8 
f§AV£ 88 

jPICKUP THE ITEM XN01K 

?tf ITEM MUMiER IS EfiRQ, *?U§f 
I TYPE THE PC OP THE IRiOR 

|OET OUT 

fAOaUif THE INDEX IS THAT If MILL 
fWORK FOR TNE ERROR TABLE 



I PORN MILE POINTER 

fPXCKUP "ERROR NfifAOE" POXNYEA 

lERIP TYfSQOf If HQ POINTER 

i type the »1r8qr mebbaoe" 
»«eaaor msabaqe" pointer qms him 
^carriage return* & "line pie©" 

fOUMp OUT RK «6SSfgR§f 
tOO TYPE OUT AK RE011TERI 



f PICKUP ^Qhtk HEADER" POINTER 

imu typeout xr 

I TYPE THE ®DAf& HI&DiR 8 
f»OAfA HiADfRs fOSHTfP §011 HERE 
»"CARR!AOE 8ITURN« ft ®l%n% 
;PICKUP 9 DATA TABLE" POINTER 



I TYPE M QGVhh MUMIIR 

I SAVE •CftO)* m TYPEOUT 

1 00 TYPE»-OCMfc AICIKALL OZOITB) 

f TYPE tWt%) §M«I 

?XS THiRf AHOfMSH JiUMSIRf 

fBR If Ygf 

jBgSfORg RO 

1*Qhmikm RiTUPN" | "LINE fKO 88 
fSKXP TIME 4 SERIAL # FOR 
fMOK^i^ERCISlR SRORS 

) TYPE OUT TIME If SW | II SET 

|G0 TYPE OUT THS # OF THS 

pEHRORlN® DRIVS, If ®W I II BET. 

fftSTUM 
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148SS PAGE 14S 



70 02S4S0 


032777 


000010 1S22S2 


TIWYPS BIT 




71 026466 


001434 




BtQ 


41 


72 026^70 


104401 


002652 


TYPi 




73 u26^74 


104401 


002662 


TYPE 




74 026700 


104414 




BAVRB6 




75 0267Q2 


012700 


00ISS2 


MOV 


SKWHR s RO 


76 0267Q6 


012001 




MOV 


(R0)*»R1 


77 026710 


000404 




BR 


2S 


78 026712 


012001 




S$| MOV 


(R0)*»R1 


79 026714 


001402 




B£Q 


S$ 


80 026716 


062701 


000074 


WD 


#60 t »*l 


81 026735 


010137 


0267S2 


nt mov 




82 026726 


012746 


02S762 


MOV 




83 026732 


004737 


024S04 


JSR 




84 026736 


004737 


025000 


J§§* 


PCiiauPRtt 


83 026742 


020027 


001360 


cm 


RO#»XNBEC«a 


86 026746 


001403 




m® 


3$ 


87 0267S0 


104401 


002334 


TYPf 


«M8Q19 


§8 026754 


0007S6 




BR 


St 


89 026 '56 


10441S 




3St mmEQ 




90 026760 


000307 




411 MS 


PC 


91 026762 


oooooo 


OOOOOO 


sit @ mm 





fTIMTYP 

fTHIB ROUTINI TYPEB THE TIME IN HOURS! MM I SECS IF SW 3 IS 
fBW 3 SHOULD HOT BE SET IF Mill IS NOT PRESENT a 

111 BN 3 SET? 
flf NOT SKIP TYPSMO TIME 
$ Sf SZM 9 

|S^V£ R0®R4 
flNXTIALIZE POINTER 



»TYP"S OUT 



pMOURSsMIHSiMCi 
iCONVERT TO ABC IS STRINd 
JQQ TYPE 
fALL OONET 



fRCBTORE ZQvM 
jSISTURM 
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jSNOTYP 

, THIS ROUTINE TYPE'S OUT THE SERIAL NUMBER Of THE ERRORlNG DRIVE, If §w | 
I IS SET. NOTE THAT THE SERIAL NUMBER IS TYPED OUT ONLY WHEN THI DRIVE 
,CAN BE IDENTIFIED POSITIVELY, AS THE ONE WHICH GAVE THE ERROR, IF THfc 
jERROP CANNOT BE ATTRIBUTED TO ANY SPECIFIC DRIVE < (SRDRV)a •!> THEN 
j THE SERIAL NUMBER IS NOT TYPED OUT* 









6192 






&193 






6194 






6195 






61 96 






6197 






6198 






61 99 


026766 


032777 


6200 


026 H4 


001 41S 


6201 


026776 


01 01 46 


6202 


027000 


01 3701 


6203 


027n04 


006301 


620* 


027*06 


100407 


6205 






6206 


027ol0 


1 04401 


6207 


027nl4 


104401 


6208 


027020 


016146 


6209 


Q27024 


1 04403 


6J1 






6211 


027rt26 


012601 


6212 


027030 


000207 


6213 






621 4 






621 5 






6216 






621 7 






62S8 






6219 


027032 




6220 


027n32 


1 04401 


6231 


0?7n36 


000441 


6222 






6223 


0?7i 42 




6224 


0271 42 


01 3746 


6225 


027i 46 


104402 


6226 


027 1 50 


104401 


6227 


0?71 54 


010046 


6228 


0271 56 


01 2700 


6229 


0?7 1 62 


013046 


6230 


0271 64 


104 4 2 


6231 


027 1 66 


104401 


6232 


0271 72 


020027 


6233 


0771 76 


003771 


6234 


027900 


012600 


6235 


0?7-)02 


000207 



000002 182144 



001213 
002326 
001266 



027040 

001116 
002663 
001216 



002663 
001232 



SNOTYPl BIT 

BEG 
MOV 
MOV 
kSb 
BMI 

TYPE 
TYPE 
MOV 

TYPDS 



21 

SRDRV * R| 
Rl 

II 

» ICRLP 
,MSG17 



J TYPE OUT SERIAL #? 
/NO 

t SAVE Rl 

I GET ERRORlNG DRIVE ff 

I IF (SRDRV)a »i, SKIP (BECAUSE 

j THE ERROR HAS NOT &f TRXiUTftSLE 
1 TO h SPECIFIC DRIVE) 



/TYPE "SR. N0|» 
SRN0(R1),-(8P) J GET THE SERIAL 9 

?T¥PE IT OUT (DECIM&LJ 



isi 
an 



MOV 

RTS 



(SP)*,R1 

PC 



tmBwm ri 

I PETURH 



I DMPREG 

I THIS ROUTINE DUMPS OUT ALL RK11 REGISTERS WHEN W li IS SET MU AN ERROR OCCURS „ 



1 1 3i$ S 



TYPE 


*6§g 




64$ 


, ASCI a 


<15><12>/ PC 


MOV 


IERRPC* »(flP) 


TYPOC 




TYPE 


, BLNKS2 


MOV 




MOV 


8RKDS,R0 


MOV 


t<P0)*#-(8P) 


TYPOC 




TYPE 


, BLNK82 


CMP 


RO,*RKDB 


BLE 


1$ 


MOV 


(SP)+,RO 


RTS 


PC 



I y TYPE &1CSI STRING 

I f GIT OVER THE ASCII 

rkds mm Rices 



RKWC 



rkia 
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6236 
623? 
6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6248 
6249 
62S0 
6231 
6233 
6253 
62S4 
625S 
6256 
6257 
6253 
62§f 
6260 
3261 
6262 
6213 
6264 
I26S 
6266 
6267 
6268 
6239 
6270 
6271 
6272 
6273 
6274 
627S 
6276 
6277 
6278 



027*504 
027104 
027^06 
027914 



027920 
027^24 
027932 
027936 
027942 
027944 
097946 
027952 
027954 
0979S4 
027960 
027962 
027970 
027972 
027100 
027302 
027*06 
027112 
027*16 
027*22 
027*26 
027*34 
027*42 
027*46 



104407 
032777 
001047 



027916 000416 



013746 

012737 
005737 
012637 
000421 
022626 
012637 
000407 

I0S717 
001412 
032777 
00140* 
013737 
00041S 
105037 
105237 
01 1637 
011637 
005037 
112737 
013777 
013716 
000002 



000004 

027344 
177060 

000004 



000004 

001103 

001000 

001110 

001103 
001102 
001106 
001110 
001204 
000001 
001102 
001106 



.SBTTL SCOPE HANDLER ROUTINE 

I !#««#####«»#####-»##®##**###««.#########«.####«.######®############# 

F«THIS ROUTINE CONTROLS THE LOOPING OF aUBflgTS 9 IT WILL INCREMENT 

I *AND LOAD THE TEST NUMBER ( 8TSTNM) INTO THE DISPL&5? REG, (DISPliA*O|0» 

I *AND LOAD THE ERROR FLAG (9ERFLG) INTO DISPLAY*1SI0S> 

f *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE| 

l#SWi4®S LOOP ON TEST 

f#SW09®l LOOP ON gRRQR 

f »CALL 

i» scopi 



000004 



iiiiio 



y f ACOPCalOT 



040000 111734 tSS 



|8#I#SSTAPT OF COOf f OP TNI KOR 
gXTSTRi BR §$ 



iff 



00110ft 711 



001113 
151600 



cmm h«st ran change in soptmnr 

BIT IBIT14»IANR pfLOOP OH PRESENT TEST? 

bne sovsr turn if smmh 

TBSTgR####® 

pjXF RUNNING ON THI «KQR S TESTER CHANGE 
jfTHIS INSTRUCTION T0 h »N0P» £NOT®14G) 

MOV f«RRVIC|«{IP3 i f SAVE THE CONflNTS Of THE ERROR VECTOR 

MOV #S$,#liRH¥IC y f SET FOR TIM1QUT 

TST H177060 f f TIME OUT ON XOR? 

MOV (8P)*#ltERRVEC f I RESTORE THE ERROR VECTOR 

BR SSV&AD | | GO TO THI NEXT TEST 

cmp csp)4>i(sp)* nQhun the stack after a tine out 

MOV CBP)*»*#ERRVEC ffRESTORl THE ERROR VDCTQR 

M 1% if LOOP ON THI PHlilNT TEST 

SttftMtlEND Of COB1 FOP THI XOR TESTERIftfl 

TITS %mthQ y» HAS AN ERROR OCCURRED* 

S10 liVLAD ;;g|9 If NO 

BIT IBSTOfiSiWfS ilLQOP 8N ERROR? 

BEQ 4S HSR It m 

MOV ILPERRilLPADR ||SET hOQf ADDRESS T9 bAST SCOPE 

BR IOVER 

4i s clrb mmhQ hssro tHi mmn rhm 

$SVLID| INCB ITITNM nCOUNT TIST NUMSERS 

MOV ( SP) i ILPADR | f SAVE SCOPE LOOP ADDRESS 

MOV (3P),»LPERR ||SAVE IRROR LOOP ADDRSII 

CLR NESCAFE ff CLEAR THE EiCAPl FROM ERROR ADDRISS 

MOVB tl,|ERNAX t f ONLY ALLOW ONE(l) 1RR0R ON MSXS TEST 

«OVER| MOV ITgSTNM, f DISPLAY f f DISPLAY TEST NUMIER 

MOV ILPADR, (SP3 ffFUDGS RETURN ADDRESS 

RTI ffPIXES PS 



lit 
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6279 
6280 
6281 
62«? 

6283 
6284 
6 2@§ 
6286 

6288 
§289 
6290 
6291 
6292 
6393 

6295 
6296 
629? 
6298 
6399 
6300 
6301 
6302 
6303 
6304 
8305 

b307 

6310 
6311 

6312 

6314 
S315 
6316 
63? 7 

8319 
6320 
632? 
6322 
63J3 

6325 
§326 
§327 
&328 
6339 



077*50 

0271S2 
027*56 

027?60 
077-S62 
027H64 
027170 



0?"H72 
027*74 

097402 



010046 
016600 
0OS74O 
1 1 1000 
006300 
1*16000 
000200 



011646 
016666 

000002 



027*504 
037*06 

027&I0 
Q274I2 
027414 
057«16 



027^32 

027426 
057430 
027^32 
097434 
027436 
027*40 
037442 
027*144 
027-546 



027404 



000004 000003 



027372 
024344 
O2&O04 
02S760 
026020 
024020 



027420 023O34 



022764 
023246 
0233S& 
023S40 
013642 
0?SS02 
02SS40 

0J3164 
02-J244 
022S22 



«S8TTL TP&P DEC OP EH 

? «TH1S ROUTINE WILL PICKUP THE LOWER BfTS Of THE «THAP« INSTRUCTION 
t *kHD USE IT TO INDEX THROUGH THE I&hP TABLE FOR THE STARTING ADDRESS 
f#OF THE DESSPSD ROUTINE « f HEW USING THE ADDRESS OBTAINED IT WILL 
l*GO TO THAT ROUTINE 9 



gTBAPs NOV 




II8AVC PO 


MOV 


3(SP)»R0 


II GET TRAP ADDRESS 


fST 




sfiACKup §y a 


MOVi 




p ; GET RIGHT? B¥TS OF TRAP 




RO 


$ y POSITION FQfS XNDEXING 


MOV 


$TfSP&DCR0 3?fl0 


1 j IK0EX TO TABLE 


RTS 


PiO 


ffGO TO ROUTINE 



ffTHlS IS USI fO HIHDLE THg ^ITPKS" MACRO 



$TRAP3I MOV 
MOV 
RTI 



C8P)»»C8P) 
4(8P)«a(8P) 



HMOVE THE PC DOMH 
ffMOVE THE P8W DO^M 
llPESTOUE THE PSfe 



8 SiTfL TOP T&BLS 

}*THI8 TABLE CONTAINS THE STARTING ADDPliSfS OF THE ROUTINES C&LL1D 
l*BY THE "TRAP" I MITRUCTIOM 9 



R0UTIM1 

s WORD 
• TYPE 

STIPOS 
|T¥?OH 
$T¥PD§ 



STRAPS 

I yCALLaTTPOC 

iiGALLsTOOS 
llCALLaTYPON 



TRAP*1C 104401 3 
TRAP*3(104402) 
TRAP+3C104403) 
TRAP*4C104404) 
TRAP*S{104405) 



TTY ffPlQUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING MHOS) 

TYPE OCTAL DUMBER (NO'LEAOING SIROSJ 
TYPE OCTAL NUHSSR CAS PER LAST CALL) 
TYPE DKSMAL NUMBER C^If H SIGN) 



9GTSWR ||CALL«GT8NR 



sckswr 

$RDCHR 

IR0LIM 

IPDOCf 

SRDDEC 

S8AVREG 

IRISRSS 

CN.RST 

CN „RDf 

DR.RiT 

TY.MSO 



f ICALLbCKSWR 
f |CALL«RDCHR 
VfCALLaROLIN 

t jCALL®RDOCf 
I f CALIi^RDDSC 
nCALLBSAVREQ 

ncALLaRssREG 

ffCALLBgQM 

|(CALL«DRV 
y fCALLaTYPMSG 



fR4P*SC104€0§3 GET IQFMWP SETTING 

TRAP*? (10440?) TEST FOR CH&N6E IN 80FT-8WR 

TRAP*10C104410) TT¥ f YPEIN CHARACTER HOUfMK 
TRAP*ll(1044tl) TTY ?¥£>£!& iTRlNG ROUTINE 
TRAP+13C 104413) READ AM OCTAL NUMBER f ROM TTY 
TRAP* 13C 1044111 READ A DgCIMAL NUMBER~rROM TTY 
TRAP+14C104414) SAVE RO»RS HOUfSlig 
TRAP+19C10441S) RESTORE IO«»RS ROUTSMi 

fRAP*l&CI044II5 CSMTRQL RESET ROUTINE 
ffl&mKIQMil) WAIT FOR COWTROSi SIAD¥ 

IMMQl 1044303 DRIVE RESET HUUTIiiE 
mP*iiC!044Si) T¥PE MMiAOS ROUTINE^ "SW13 



MO-U-D«RRHfl, 9Jit\-*9ZQ§ PSRrORMANCE EXBRCISBR MACYlt SOCIOiSJ 0S««IUN»f7 I4HS 

d«rkhg,pii 2s^a^p?^77 loi 11 mm® mm km w ieufSMi 



Hi 



6390 








S3II 








4312 








§335 








6 3 34 


057^iO 


012717 


037614 






013737 


00014© 


6 3 36 


037464 


010046 




§317 


0274S& 


010146 




&3Si 


037470 


010141 




§33® 


037471 


010346 




&?40 


027474 


0t(H4S 




A341 


037^76 


«109 4§ 




6342 


o«moo 


017746 


181414 


63«3 


017^04 


010137 


027S10 


6344 


027^10 


Al§737 


037S33 


$34*1 


027116 


000000 




&34S 


037130 


OO077S 




SI47 








#341 








6 349 








6310 


otitis 




037814 


§311 


027110 


0!170I 


0I7SI0 


%M2 


Og7^|4 


0OSOS7 


037830 


6313 


017^540 


oos«7 


017130 






00S17I 




SSII 


037*46 


013677 


1B1368 






aia#os 




IIS? 


WW 


013104 




iSS8 


037116 


013603 




list 




013603 




§110 


OWM 


013601 




6361 


021^14 


01M00 




ss§s 


027^S8 


013717 


011410 


§313 




011117 


000140 


S1S4 


O37S02 


104401 




I3SI 


OW04 














636? 


0874J0 


003366 






087413 


000002 




6369 


087414 


000000 




#310 


087416 


00077i 




§171 


Qf7u20 


oaoooe 




SHI 


0?74g§ 


OOiOIS 


Q47SI0 


§113 


027^30 


OOOI22 




€174 









tftBTTL poncr mm km m routsnbs 



1 power mm ROUTINE 



SPWRONl MO¥ 

MOV 
MOV 
MOV 

my 

MOV 
MOV 
MOV 
MQV 

um 

m 



9SILLUP»8SPNIIVCC ffllf fm PAST Uf 9 
fl340r89PW»VEC«3 flPRIOl? 



RO, 
Rl» 
R3* 
RJ# 
H4« 
R», 



>(ft») 

•.(•P) 
>(SP) 

>C#f) 



8P1S8AVR6 



tffusH m m STACK 

ffPUIH Rl OH STACK 

f lMSH Pi ON STACK 

it push m m stAci? 

flPUIH M m STACK 

fyPUSH RS §f&« 

f I PUSH SSWR m STACK 

If SAVE IP 



#$pMiUP*llfBR¥I€ yf SET UP VECTOR 
HWM@ UP 



!?########■ 



III 



MOV 
CM 
INC 

mm 

MS? 

®m 

«QV 



MOV 
MOV 
MOV 



II1W9 .WORD 

9PNRADI 9 W0» 
RTI 

SlLLUPi MAW 

IP 

88AVR6I 

4 POWER I 8 Ai€« 



.EVEN 



• S1LLUP#S«PWIIVEC 
SSAVRSrSP 
ISAVRS 

SMVW 
SI 

CSP)*»SBKR 
(fP)««R9 
(8P)«»R4 

(SP)4«R0 

•SPNRDNfSSPNAVEC 

• 140* S9PWRVEC4>1 

CPC)*»CSP) 



• •3 

^IBXia^^POWER" 



ffiSf rOH PAST 00«N 
II GET iP 

II WAIT LOOf POR THE TTT 

mmait ?m the 

fior mm 

If POf STACK INTO SSNR 
ffPQP STACK INTO R9 

1 1 MP if ACS INTO R4 
If POP STACK INTO Rl 
ff POP STACK IMTS M 
p? POP STACK INTO Rl 
M POP STACK INTO RO 

H«f UP THE POWER DOMM VECTOR 
ItPRIOlT 

9 REPORT THE POWER FAILURE 

ffPSMEg Fhth mmkm pointer 
it restart it wmm 

M RESTART ADDRESS 

llfMI POWER UP SIMINCI MAS STARTED 
If BBPORE THE POWER Wm MM eOWLIfE 
HPUT TMg SP HERE 
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§17? 










6?76 










§ «(7 ? 


0?7^ 32 


0^1105 


031117 


4 7 440 


6 3? S 


f) 7 7 *4 4 


2 01 16 


051127 


OS 2! H 


§ 379 


027^46 


1 S 






S 3i0 


027^50 


053101 


04SSOS 


0S112A 


ft3@S 


0274S6 


0S3040 


020117 


047111 


6 3§1 


027^44 


03 2 1 1 \ 


040SI1 




8 38 3 


027^73 


043040 


047 i as 


0S2103 


6 3 8 4 


0277QO 


0475 1 1 


0201 IS 


047J 17 


6 385 


0277 06 


023440 


052502 


054323 


5 386 


0277J4 


020047 


051104 


04252§ 


6387 


027722 


000 






6388 


027723 


103 


0S2I 16 


047522 


6 3 9 9 


ft?77 30 


0201 14 


042122 


020131 


6 390 


027736 


047516 


020124 


042533 


6391 


027744 


000124 






6 392 


277 46 


05 1 057 


053457 


0514,57 


6393 


027754 


051040 


054504 


047040 


6394 


027762 


0521 17 


051 440 


0S2105 


6 395 


027770 


000 






6396 


027771 


103 


052116 


047522 


6397 


027776 


0201 14 


042122 


020131 


6398 


030T04 


047516 


020124 


042523 


6 399 


o3nol 2 


020124 


043101 


042524 


6 400 


03oo20 


020122 


051461 


020124 


6^01 


o3on26 


047 t i 1 


0S1 124 


050125 


6 4 2 


3 o 3 4 


02012 4 


047117 


044440 


6 40 3 


3 1 4 2 


051523 


044525 


043516 


6404 


03o^50 


05 1 440 


042503 


0001 i 3 


6 405 


3oo§6 


051127 


047117 


020107 


6 406 


3qo64 


044502 


051524 


044440 


6 4 0? 


30f)72 


020116 


04S522 


05 ISO 3 


64QR 


3 1 00 


020054 


05 41 OS 


041520 


6409 


3 1 06 


020124 


042523 


04SS0S 


64i 


030 1 1 4 


000 






641 1 


o30 1 IS 


047 


052502 


0S4523 


6412 


q301 22 


020047 


046106 


043501 


6 413 


3 o 1 30 


4 14 40 


04251 4 


051 101 


6414 


3 o 1 36 


047 440 


020116 


471 1 1. 


6415 


q3Qi 44 


OS 1 124 


050125 


044524 


6 416 


o3Q1 52 


043516 


042040 


053S 22 


6417 


3 1 6 


000105 






64 1 A 


0301 62 


050047 


051517 


ogam 


6419 


3 1 7 


04751 i 


044516 


043516 


6420 


0301 76 


020047 


046106 


043501 


6 42! 


030904 


043040 


051 117 


044440 


6422 


0307l 2 


0521 16 


052522 


052120 


6423 


030720 


047111 


020107 


051 104 


6424 


030726 


042526 


041440 


043514 


6425 


030-534 


051 1 01 


000 




6426 


03O?37 


047 


051105 


023522 


64?7 


030-544 


031 11 7 


031440 


052105 


64?fl 


030752 


040440 


0S2I06 


05I10S 


6429 


030">60 


030440 


052123 


044440 


6430 


0^0766 


052116 


0S11OS 


052522 



|ERROR MESSAGES 

mit 8 &sc« /mm on write/ 



SM3t 



,kmn /atempt to initiate function m »ium» drvc/ 



£M3s a ASCIS /CNTROL RD¥ NOT SET/ 



SM4S s kBCl% VR/W/S RDY NOT SET* 



EMSi .A8CIZ /CNTRQL RDY NOT SET AFTER iff SfSfRUpT ON ISSUING 



Emt vhBClZ /WRONG BITS IH R&CS, EXPO'S SEEK/ 



EM7i a ASC22 /'BUSY* FLAG CLEAR OH INTRUSTING BRVE/ 



.ASCIZ /'POSITIONING' FLAG FOR INTRUPTING DRVE CLEAR/ 



EMI 1 1 , ASCII /*ERR*OR SET AFTER 1ST IMTfRRUPf OH ISSUING SEEK/ 



-OZRKHH, RKH-RK05 PERfQPM&NCE EXERCISER MACYII 30t|O4§5 6 -J UN • 7 7 14ISS PAG 



.ASCI* /SCP ag? &FT1R lit INTRUPT OM ISSUING SEEK/ 



Ml 


25*.APB«>7? 


10118 






030774 


0521 20 


047440 


020116 




010102 


051511 


0S2923 


047111 




030110 


020107 


042523 


045305 




03QM6 


000 








030117 


123 


OS0103 


031440 


mn:u 


030124 


052105 


040440 


052106 




030132 


051 105 


030440 


0S2123 




010140 


044440 


0S2116 


0S2S22 




010146 


052120 


047440 


020116 




030154 


051511 


052523 


047111 




030162 


020107 


042523 


04S505 




030170 


000 








030*71 


103 


052116 


047822 




030176 


0201 14 


042122 


020131 




030404 


047516 


020124 


042323 




030412 


020124 


043101 


042S24 




030^20 


020122 


042523 


04S50S 




030426 


042040 


047117 


02010S 




030434 


047111 


051124 


0SO12S 




030442 


000124 








030444 


047111 


051124 


030125 


E«14l 


030452 


044524 


0435IS 


042040 




030460 


053122 


020105 


051450 




030466 


042505 


020113 


047504 




030*74 


042516 


020051 


040S27 




030^02 


020123 


047516 


020124 




030*10 


041047 


05152S 


023S31 




030M6 


000 








030*17 


122 


053457 


Q514B7 




030^24 


051040 


04050S 


0S4S04 




030^32 


047040 


052117 


051440 




030^40 


052105 


043040 


051117 




030«S46 


044440 


052116 


052S22 




030<I34 


052120 


047111 


020107 




030*62 


051104 


042S26 


024040 




030*S?Q 


042523 


045S08 


042040 




030^76 


047117 


Q24S0S 


000 




030403 


123 


0471 U 


O4S440 


SM1§| 


030M0 


047S22 


000122 






03O&14 


042447 


0S1122 


047447 


EN171 


030S32 


020122 


047117 


043040 




030430 


044SI7 


043SSS 


0SI44© 




030*36 


042S0S 


000113 






03OA42 


041S23 


020110 


044S04 


EN30I 


030SSQ 


020104 


04751S 


020134 




030$S§ 


042S23 


020124 


041101 




03O«S4 


042S24 


020122 


042933 




030S72 


04SS0S 


0S3440 


0SISO1 




030700 


042040 


047117 


000105 




030706 


047S23 


083101 


04§440 




030*14 


047522 


000122 






030720 


040504 


040524 


024040 


EM3JI 


Q30"?2& 


047503 


050115 


0S1101 




030734 


051311 


047117 


0200S1 




030742 


051105 


0511 17 


000 




010747 


103 


0521 16 


047S22 





»hsaz /cntmh mx hot set after seek mm imtrupt/ 



9 ASCIg /INTRUPTING DHVE (SEEK M&S SOT ^SUif 8 */ 



9 ASCIE 8 R/K/S BEhtil MOT SIT FOP INTRUPTING D§¥E (8BCX DOME) 



a bKlZ /SIN EROR/ 

9 aiC« /'ERR*OR OM DOlMd SEEK/ 



,kKU /SCP DSB HOT SIf AfTER SEEK NA8 POMi/ 



.ASCIZ /SSrf EROR/ 

«aS€Sl /®hth (COMPARISON) EROR/ 



•ASCIZ /C&TROk 10¥ ON INTRUPT AFTER m FUNCTION/ 



1 1 <" 






PERFORMANCE EXEPCI5CP 


KHG 




25-APR-77 


10118 




PONEP 


49 7 




4 020114 


043122 


020! 31 








2 046103 


020122 


0471 17 




48^ 


fl3nr 


O44440 


092 1 1 6 


092?22 




490 


30^1 


6 05? HO 


040440 


0931 08 




49 1 


oMnt 


4 051103 


OS 1 040 


020111 




492 


3 1 « 1 


2 052906 


041 3 1 S 


044534 




49 J 




04711? 


000 










3 123 


053334 


04SI03 


KMa«i 


49S 




044440 


020116 


047314 




496 


olio. 


6 0*501 17 


0340S4 


041440 




49? 


0*i«< 


4 046917 


047101 


0S1S04 




498 


y 3 1 ^3 


2 0S1440 


04® 110 


041104 




499 


oMot 


030101 


041104 


042BII 




500 


03l^€ 


6 U41040 


030131 


047511 




901 


n3im 


4 000127 








So2 




8 091101 


0S01 IS 


030124 




Su3 


oinc 


4 047534 


041040 


030117 




S04 


3 1 1 1 


2 05112? 


012111 


0301 OS 




SOS 


OS 1 1 3 


042S03 


047S06 


041S2I 




soft 


3 1 1 S 


6 0S3440 


0S2122 


041440 




90"? 


03113 


4 045510 


000 






908 


03lU 


7 101 


04SS34 


081130 


IMSOl 


509 


03 1 M 


4 052040 


0201 17 


042S32 




| j o 


03l 19 


2 09410S 


04II0S 


0S3IIS 




5 1 1 


03 1 1 g 


020108 


047SOJ 


04SS1I 




8 1 J 


0311« 


6 047 101 


<msc4 


047111 




§ 1 3 


03111 


4 OS0040 


047532 


051107 




3 3 4 


03MC 


2 OS1S0B 


020123 


081117 




% \ 5 


03193 


040440 


051114 


040S0S 




SJ J & 


031-93 


6 0S4504 


043040 


047111 




5 i 1 


03l«>3 


4 051511 


042S10 


000104 




5 1 g 




2 043047 


047125 


012103 


CM31I 


5 1 9 




047511 


020116 


047111 




S20 


3 1 «? < 


6 0S0040 


047522 


051107 




52 i 




4 051505 


020047 


046108 




522 


l)3l?fc 


2 020107 


047506 


020132 




5? 1 


031 ->1 


047131 


0S1134 


0S013S 




524 


Oil-?! 


6 044524 


043516 


042040 




^25 


031 1C 


4 04452? 


042526 


044440 






3 i * S 


2 047123 


052047 


0S1440 




527 


3 1 i 2 


05210S 


000 






S28 


o3i 


3 3 25 


042516 


030130 




529 


03113 


0*52103 


042105 


042040 




5 30 


03133 


b 044522 


042526 


044440 




5 3 1 


03114 


4 0*21 16 


052522 


052120 




5 32 


01H3 


2 042105 


000 






5 3 1 


033 


5 125 


042316 


050130 


EM33I 


534 


03 1 ^f 6 


2 052103 


020104 


032506 




5 35 


u 3 1 1 7 


041516 


044524 


047117 




536 


o3i n 


6 041440 


0421 17 


020105 




537 


031 4C 


4 047J11 


051040 


041513 




53B 


314 3 


2 020123 


043101 


042S24 






03! *3 


20 12? 


047111 


051124 






031 17 


6 050125 


000124 








0314. 


? 051104 


042516 


051040 


EM34I 




031 *4 


054504 


041440 


042S14 
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SMa«l *Mtl /§fUCK IN liOOPil CQMAMDS SMLDil DONE S# NOW/ 



tmi% 9 Asen /atmpt to se mm sepore mt §h&/ 



IMSOl «A«CIX /ATMPT TO REEXBCUTB QQHMhHQ®%$$ PROOREM 0g ALREADY FIHUMQ/ 



cmsii 9 Ai«i /^function u progrea* no fqm xntruptxno drive ism sit/ 



gM32S 8 &SCI1 /UNIXPCWD DRIVE INTRUPTED/ 



EM33I e &3CSE /UNEXPCTD FUNCTION CODE IN R&C& &PfER XNTRUPT/ 



EM34I 9 A@Clg /DISVE R0¥ CLEAR/ 
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1 



PI 1 2 ! S 




101 IB 




ports* 




UP ROUTIMIS 


031446 


051 J 01 


000 










031 151 


104 


0S3122 


020105 


SMJSl 




/DPVE POWER LO/ 


031 ^56 


047520 


042527 


020122 








031 464 


047M4 


000 










031 &61 


104 


OS3122 


02010S 






/DRVS UNSArC/ 


"31 474 


04712S 


040S23 


042S0S 








OSl^OI 


000 












031^03 


127 


OS1S20 


054440 


mit 




/MPS SET/ 


03H10 


03210S 


000 












111 


0S21I6 


031105 


1MS0U 




/XNTERUPT ®im*T OCUR APTER 


01M20 


0501 25 


020124 


044S04 








031^26 


047104 


0S2047 


047440 








031^34 


052503 


020112 


043101 








031142 


042524 


020122 


051137 








O3H50 


042824 


000 










03H93 


047 


0SI105 


023S32 


EM103I 


• ASCI I 


/>%m Q® fET/ 


031^60 


091117 


051440 


0S210S 








03is?66 


000 












03i«^67 


122 


0421 13 


020101 


EM103I 


•ASCXZ 


/RKOA IMCRMEMflD WRONO/ 


031^74 


0471 1 1 


031101 


043iiS 








031^02 


052116 


04210S 


0§3440 








031*10 


047S22 


04331# 


000 








031*15 


122 


041113 


020101 


HM104S 




/RKBA INCRNENTED WROMS/ 


031^22 


047111 


051103 


04IS1S 








031330 


052116 


04210S 


053440 








031^36 


047S22 


04351S 


000 








031 «43 


132 


03 3513 


020103 


EMlOSl 




/SKWg OZDN'T eVRfLO TO 0/ 


031*50 


O44S04 


047104 


0S2047 








031 fISft 


047440 


OSS 12© 


04&10S 








Q31&64 


020117 


047S24 


0S0040 








031S72 


000 












031*73 


115 


O8410S 


041040 


EN106I 




/HEX ilfl WROMfl/ 


03HO0 


0521 1 1 


020133 


0S1137 








03i«?06 


047117 


000107 










031*^12 


0IS127 


043334 


041440 


EMUOl 


•Aiezs 


/WRTE €HK WOP/ 


03H20 


049310 


042440 


047112 








03H36 


000122 
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6580 










6*581 


o 3 1 1 3 


020040 


041520 


020040 


6582 


031736 


020040 


05 1040 


041513 


6583 


031744 


020123 


020040 


051040 


6534 


031752 


U4251 3 


020122 


020040 


6585 


03U60 


051040 


04211 3 


020123 


6586 


031766 


U20040 


051040 


0421 1 3 


6587 


031774 


000101 






6588 










6589 


031776 


020040 


041520 


020040 


6590 


032004 


020040 


051104 


021526 


6591 


032rtl2 


000 






6592 










6593 


032M 3 


040 


0S0040 


020103 


6594 


032020 


020040 


020040 


045522 


6595 


O32o26 


051503 


020040 


020040 


6596 


032034 


045522 


051105 


020040 


6597 


032*42 


020040 


045522 


051504 


6598 


032050 


020040 


042040 


044522 


6599 


032056 


042526 


020040 


020040 


6600 


032n64 


054503 


020114 


020040 


6601 


032ft72 


020040 


052523 


020122 


6602 


032100 


020040 


020040 


042523 


6603 


0321 06 


000103 






6604 










6605 


032110 


020040 


041520 


020040 


6606 


032116 


020040 


045522 


040502 


6607 


0321 24 


020040 


020040 


054105 


6608 


0321 32 


041520 


020124 


020040 


6609 


0321 40 


042522 


053103 


020104 


661 


032146 


020040 


045522 


040504 


6611 


032i54 


000 






6612 


032 1 55 


040 


030040 


020103 


6613 


032162 


020040 


020040 


045522 


6614 


0321 70 


051503 


020040 


051040 


6615 


0321 76 


042513 


020122 


020040 


6616 


032904 


051040 


042113 


020123 


661 7 


32-? 1 2 


020040 


051040 


042113 


661 8 


('32720 


020101 


020040 


051104 


66 3 9 


032726 


042526 


000043 




6620 










6621 


032732 


020040 


041520 


020040 


6622 


032740 


020040 


045440 


054505 


6623 


032746 


020040 


020040 


047106 


6624 


032754 


052303 


0201 IS 


047503 


6625 


032762 


042504 


000 




6626 


032765 


040 


050040 


020103 


6627 


032772 


20040 


042440 


050130 


6628 


O32iO0 


052103 


020040 


0S1040 


6629 


032^06 


041505 


042126 


000 


6630 










6631 


032U3 


040 


050040 


020103 


6632 


032i20 


020040 


045440 


05450S 


6633 


32126 


000 






6634 


032127 


040 


050040 


020103 


6635 


3 213 4 


020040 


020040 


04S522 



j DATA HEADERS 

DHli , ASCIZ / PC BKCS PKER RKDS KKDA/ 



DH2I .ASCIZ / PC DRV*/ 



DH21I 9 ASC« / PC RKCS RKER RKDS DRIVE CYL SUR 



mc/ 



DH23f 9 ASCII / PC RKBA EXPCT RECVD RKDA/ 



DH2S i 9 ASCIIS / PC RKCS PKER RKDS RKDA DRVE# / 



DH27« , ASCII / PC KEY FNCTN CODE/ 



DH103I .ASCIZ / PC EXPCT RSCVD/ 



DH30I .ASCIZ / PC KEY/ 

DH1058 e A8CIZ / PC RKDA RKWS/ 
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6636 


032142 


040504 


020040 


031040 










6637 


032150 


053513 


000103 












6638 


032154 


020040 


041520 


020040 


DHUOl 


e A8CIg 


/ PC RKCS RKER 


RKBA RKDA/ 


6639 


012162 


020040 


051040 


041513 










6640 


032170 


020123 


020040 


051040 










6641 


032176 


042513 


020122 


020040 










6642 


032*04 


051040 


041113 


020101 










6643 


032412 


020040 


051040 


042113 










6644 


032420 


000101 














6645 


















6646 


















6647 












8 EVElff 






6648 


















6649 


032422 


001116 


001162 


001164 


DT1S 


gWQRD 


SERRPCt 9REQ0,gREGl,f R£G2« 


$MG3»0 


6650 


032^30 


001166 


001170 


000000 










6651 


















6652 


032436 


00 1116 


001 162 


000000 


DT2l 


.WORD 


§£RR?C?$R!60*0 




6653 


















6654 


032444 


001116 


001162 


001164 


DT21I 


e MORD 


SERRPC* IREGOf IREGl , $REG2 e 


fsRESlj SRS§4s SRSiS g SRCQ6f 


6655 


032452 


001166 


001170 


001172 










6656 


032460 


001174 


001176 


000000 










6657 


032466 


001116 


001162 


001164 


DTSSl 


.WORD 


fERRf>C,gREG0y|f«6le$RlG2 ? 


fftEG3tlREG4» 


6658 


032474 


001166 


001170 


001172 










6659 


032*02 


000000 














6660 


032^04 


001116 


001162 


001164 


DT103S 


.WORD 


SERRPC # 0RIGO ? gREGI f 




6661 


032112 


000000 














6662 


















6663 










f THIS 


IS THE DATA BUFFER USED TO WRITE THE RANDOM PAfTERJSS OM THE 


6664 










f DISK 


AT THE BEOINING. 400 (OCTAL) WORDS 


ARE WRITTEN AT A TIME, THUS 


6665 










f THIS 


BUFFER IS 


400/8 WORDS LONG, 




6666 


















6667 


032*14 








DBUFS 








6668 


032*514 


000240 






PGENDi 


NOP 






6669 




000001 








s END 
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ABORT 


o i fi 7 3 






D8ELC t 


1 ft 3 1 2 








172313 


&8PT 


(? 1 ?A4h 




. _ 






f N C M N 






17 2 314 




(H 2 * 






DTI 


032422 






K i P DP 7 ® 


1 7 3 3 1 6 


8AMAP 


J ^ 3 


Z, ' _' B 


01 DOun 




32304 


f R 3 F R T 


00 i ^ 




1 3 1 


B A 8 F. B $ 


o o 3 2 






DT2 


032436 


FTITLF- 






00 1 35 7 


SCTfi i 


§ 1 § 2 


rt ha i m 


1 6 i S 2 


DT2 1 


3 2444 




0167 0' 


>f 


1 2 3 -J 


BF!OE X 1 


1 OM 2 




U i 4 7 1 6 


DT2S 


32466 


GEN 1 


oi 473I 


KW1 VST 


10 




U 1 Oft j 




00 1 32ft 


ECOUNT 


00 i S 40 


G E N 8 R 


n Af n 


KUiMTM 


I b •> 4 


8 1 TO ® 


QOQoQ 1 




1 4 1 6 Q 




000030 


GSTINF 


5 5 ft d 




001 246 


§ I T ® 


QOOoO 1 




021712 




027S12 


GTSDR V 


3 2 2 2 f 




00 1 3S6 


§lTOt ® 


A 2 


(jN PO Y 


Q22364 


SMI 


030143 




104406 


KWSRVE 




a T ? s 


ft oo«04 




Q223S& / 


EMI 1 


3 1 § 1 3 




022040 




00 012 


ilTOS ® 


10 




2 3 ^ 


SMS02 


03|SS3 








002034 


8IT04 ® 






1 4 4 1 ? 


EMi 03 


031SS7 


HE ss 


Pi A {\ ft n rt 


MM* 


02074S 


8IT05 s 


OO0fi40 


CON R£$t 






031618 


HECN 








ilTOS ® 


00 01 00 


CR ® 


w u U U 4 3 




03164 3 


HISTRY 






0307 7 2 


BITO? ® 


000*500 






EM 1 OS 


31673 


HPDERR 


01 401S 


MH4 


0307 7S 


BIT08 J* 


ooo too 


CRLF s 


« ft ft 3 rt a 


EMI | 


030337 


HT ® 


n ft n rv 1 < 




00025 




1 oOO 






KM i 1 


031712 


I NTFLG 






002063 


B I T 1 ® 


ft 2 


CSE ® 


000003 


gMi 2 


03031? 


INTHND 


1 32BS 






QIT10 ® 


1)1) £ nyU 


C8ECN 


001652 


EMI 3 


.1 3 7 1 


I N T 1 F Ij 




ua „\ t 

Mawl i 


004201 


8 1 T S 1 ® 


4 o 




001S22 




030444 


I NT 1 


01237^ 






BIT! 2 » 


1 ft 


DATCHK 


o i 7 1 i o 


gMlS 


030317 




ft ft n *3 n 
w »J U u « J 


Mar 1 1 


002214 


Blfi 1 ® 


2 00 




001712 


SM16 


030603 








0O222S 


ratios ^ 


A 4 A a A A 


00UP 


032SI4 


EM17 


030614 


KDPARl^ 


172362 






BITIS ® 




DDI3P 5s 


i 7 75 7 




027SS0 




17 2 364 


war 1 a 


« f 2 




OOOoO 4 




317 30 


EM20 


030642 








2 1 % 


BITi « 


A i 


ns-n 


32265 




030706 


K0PAR4S! 






002334 


BI 4 ® 


A 3 




032327 


EM33 


0307 20 


KDPARS^ 






002336 


8 1 T5 s 


000040 








030747 






MSG2 


002070 


1 T6 ® 


01 00 








031023 


KDPAB7 ^ 






003362 


BIT? E 


1 o 






EM2? 


031076 




J i Iff 2 




00 2 37 2 


BITS ® 


1 




032110 


EM3 


027723 


KDPDR 1 is 






002375 


8IT9 ss 


o o t o o o 








031137 


ICD P0 ^2 ® 






002377 




2 ft & 4 




3 2232 


EM| 1 




KDPDR3® 






00 247 4 


BLNK82 






032313 


EM32 


31323 


KD PD R 4 k 




MSG27 


002S 3 2 




2 * n 2 


DT^Pl ft 


00 1 142 


EM|3 


031 3SS 


KDPDRSig 


173332 


MSG2i 


00360*$ 


BPTVEC® 


a t 4 






EM|4 


031 432 


KD P0R6 ^ 


! ^ n « s ^ 


M 5 G 2 9 


0026S2 


BUSY 


003 426 


nMoasT 


027032 


£M3S 


031 411 1 


KDPDRTns 


1723 36 


MSG3 


2 7 f> 


r u 




DORSAD 




EM36 


03I4&7 








002 104 








006304 


1M37 


031503 


KIPAROa 






002120 




i i « s a 


DOXFER 


006312 


EM4 


0277 46 


KIPARi a 






00213 3 


CHF8 A 


f 7 






sws 






.Ltt.l, 


MSG7 


0021 41 


CHKCPO 










JOOSiJ 




17234© 




002146 






R M & P 


001520 


EM? 


0301 \§ 


KTPAR4SS 






002156 




o?0i 2f 




02 000 


ERCDDE 


001474 


K Z P ARS ® 


1 733S2 


^1£R0R 


021S 16 


CHKDP V 


1 6** 4 


OR VAST 


Ot 4426 


ERDRV 


001542 


KIPAR6B 


1723S4 


NQEROR 


0143 00 


CHKMLX 


0?0?04 


DRVCHT 


001500 


ERINF1 


00S72O 


KIPAR??s 


172356 


NRDH 


001774 


CHKRWS 




DRVPRS 


0012S4 


ERR 83 


100000 


KIPDRO® 


173300 


NROL 


001771 


CHKWC 


2 *) 3 f ) 


OPVPTR 


001476 


ERRVECs 


000004 


KJPDRlis 


172302 


NWRFNC 


011766 


CHI 


01 J -> ? n 


DRV 9 R£ss 


104420 


EXCRLU 


01S726 


KSPDR2S 


172304 


NWRTH 


001734 


CH2 


011*10 


ORY « 


000200 


EXCUT 


011612 


Klf DR3® 


17330ft 


NWRTL 


001732 


CICNT 


I 4 h h 


DR.RST 


032244 


EXNSK 


011470 


KIPDP488 


172350 


NXTDRV 


005366 
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ODDEVN 


01S724 


RG4SDR 


022222 


ST3 


0OS322 




104411 


OGDDAT 


001134 


PCMND 


002O32 


R^BA 


001226 


8T4 


0047S2 


TYPOC a 


104402 


SGET42 


022740 


PCMTP 




RKC5 


001222 


SUPPS 


02S014 


TY PON a 


104404 




023034 


POR 


001 ->54 


RKOA 


0^1230 


SUPRSL 


02S000 


TYPOS 


10440B 


SHD a 


000000 


PFSTPT 


00316A 


RKDB 


001232 


SUP1 


02S026 


TY 8 MSG 


022522 


$HIOCT 


023640 


P f 1 E R R 


01 39 14 


RKDS 


001216 


SUPS 


025070 


VJAflME 


022630 


8ICNT 


001104 




032*? I 4 




001220 


&m 


00U40 




00000! 


% ILLUP 


027614 


PIM « 


1"?7T72 


RKSTAT 


001242 


SWREG 


000176 


WCECH 


001631 


3INTAG 


001133 


PIRQVE® 


000^40 


RKVEC 


001240 


SWO b 


000001 


WCFLG 


001486 


§ ITEMS 


001114 


PORKEP 


01 mi 


RfCWC 


001224 


8W00 a 


000001 


WCMAP 


001532 


IKTNEX 


017666 


POS 


001 136 


PNUM 


017106 


Bmi u 


000002 


WPS a 


000040 


IKTOUT 


0176S6 




020^S0 


RSBAH 


023746 


SW02 88 


000004 


WRD8K 


010266 


• KT11 


017S24 


POSK 


012164 


PSBAL 


023744 


SW03 a 


000010 


WRFNC 


012004 




001214 


POSTIO 


011414 


RSCYLH 


02S742 


SW04 a 


000020 


XFR 


0O7S14 


8LPA0B 


001106 


PPRLVL 


001^44 


PSCYLL 


029740 


SWOS ® 


000040 


XFR1SK 


007S04 


6LPSRR 


OOiliO 


PRICMN 


1 1 « 1 


PSDRVH 


023732 


SWOS u 


000100 


XXDPMD 


002060 


&L8T&D 


017770 


PRSFNC 


001 4S2 


PSDRVL 


02S730 


8WQ7 ® 


000200 


IAUT0S 


001134 


SLSTBK 


017772 


PRO a 


OOOftOO 


RSDTH 


02S7SS 


SWOB a 


000400 


SDDADR 


001122 


%mm 


023S27 


PR1 8 


00QO40 


R3DTL 


025?i4 


SWOf ss 


001000 


I0DD&T 


001126 


9MSWR 


023216 


PR2 * 


0001 00 


RSfUNH 


02S736 


8 Ml si 


000002 


8BELL 


00120S 


SMUL a 


000003 


PR| B 


0001 40 


RSFUNL 


02S734 


®Wi0 a 


002000 


@CHARC 


024460 


8MULT 


03S100 


a 


0001*00 


RSWCH 


03S7S2 


SWli ® 


004000 


OCKiWR 


022764 


8NULL 


001184 


PR5 a 


*? 4 


RSWCL 


02S7S0 




010000 


9CMTAC 


001100 




000001 


» 


000^00 


RTIPC? 


021732 


SWi3 a 


020000 


ICM1 m 


00001! 


0OCNT 


026202 


PP7 a 


000^40 


s?wg « 


000100 


SWI4 a 


040000 


SCM2 a 


000022 


aOCTVL 


024566 


PS s 


177776 


R§ ss|000006 


S^lg ■ 


100000 


ICM3 ® 


000011 


mmm 


026204 


P@ ! Ngp 


Ol3o70 


R7 @%000007 


SW2 is 


000004 


$CNTLQ 


023S11 


SOVER 


027334 




01 31 30 




001536 


SW3 s 


000010 




023904 


IPASS 


001100 


PSfFNC 


00 1 46 4 


SAVREG® 


104414 


SW4 a 


000020 


SCORE 


017674 


IPOWEB 


027622 


PSW a 


1 ?7f76 


SCP « 


020000 




000040 


iCRLF 


001213 


f PWRAO 


027610 


PWWEC® 


O00«24 




00SS24 


sws ■ 


000100 


SCRQUT 


017724 




0274S0 


P! 


020^76 


8EX1T 


021720 




000200 


ID8LK 


024234 




027604 


P2 


C)?04i0 


SFTERP 


013636 


awe 88 


000400 




024604 


$PW8UP 


027322 


OBUSftD 


ooni 4 


8IH « 


001000 


W B 


001000 


8DB2D 


024464 


$QUES 


001212 


QC 'i t 


001«I04 


8INCN 


001622 


TBIfVEfs 


000014 


0DECVL 


024764 


• RANO 


02537S 


ODPV 


001^02 


SIfJCNT 


016264 


TIMER 


001472 


SDIV 


03S212 


IRDCHH 


023246 








012704 


TXMOUT 


022394 


9DOAQN 


022760 


8R0DEC 


023642 


QfNC 


00IH2 


SKE ® 


010000 


TIMTYP 


026660 


SOTBL 


024234 




033366 




01 QW 


fiKECN 


001602 


TKVKC a 


000060 


IENDAD 


021780 


iRDOCf 


023S40 


mem 


005 4ft0 


SNOTYP 


02S76& 


TFVIC 


0000^4 


OENDCT 


022734 




000010 


QBtC 


001310 


8R0BV 


0012S0 


TRAPVEa 


0000.14 


SEOP 


022704 


$REGAP 


001160 


mm 




8PN0 


00126^ 


TRTVECss 


000014 


IEOPCT 


022728 


$RES0 


001162 




001S16 


gRO m 


177S72 


TSTI 


009414 


gERFLG 


00110J 


IR£G1 


001164 




017104 


SHI ® 


177974 


TSfg 


009S26 


SERMAX 


001119 


SREQ10 


001203 




104410 


SPS 


I77S7S 


TSTI 


00S773 


iERROR 


026206 


$R£G3 


001166 


pddsc « 


1G4U1 


8M ® 


172)16 


T8f4 


006106 


8ERRPC 


001 us 


$RSG3 


001170 




10441 1 


STACK a 


001100 


T8TB 


00S4S6 


SEPRTS 


002S66 


SREG4 


001172 


RDOCT ^ 


1 044 1 a 


STAf?T 


003376 


TST& 


007040 


g SRRTY 


02§473 


SREG8 


001174 


RE PC NT 


0fi2f.S6 


ST&RT& 


003444 


TST7 


007374 




001112 


IREG6 


001 176 






STAT8T 


02100S 


TYPDiO 


017774 


8E3CAP 


001204 


0RCG7 


001200 




I 04 4 19 


STATUS 


021436 


TYfOS a 


1 0440S 




0011S6 


SRESRE 


02S340 




OOOol 


BTRLMTa 


177774 




104401 




001 159 


§RTNA0 


023762 


RETRIf 


001 


ST-2 


004400 




021736 


f GDADR 


oonao 


ISAVRI 


02SS02 
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S3AVR6 

8SC0PE 

ISETUPk 

SSIZE 

I8IZEX 

$STUP a 

ISVLAD 



027*;.) 
097904 
0001 IS 
017*66 
017730 
177T77 
077*06 



8SVPC * 000220 

gSWR m 143000 

SSWRMK® 000000 

STKB 001146 

ITKS 001144 

$TN m 000010 

ITNPWR 024714 



•TPB 001152 

ITPFLG 001157 

dTPS 001150 

STRAP 027350 

STRAPS 027372 

f TRP a 000022 

ITRP&D 037404 



ITSTNM 001 

ITTYIN 023 

ITYPD8 024 

STYPE 024 

ITYPEC 024 

ITYPEX 024 

•TYPOC 026 



ITYPON 036020 
tTYPOS 025760 
$XTSTR 027216 

|$G2f4a 000000 
fOFZLL 026203 
• ® 032516 



AES 9 



032*16 



ERRORS DETfCTEDl 

#DSKZ|DZPKMG/80LaD8KZ!8Y8MAC ( SML,D8KM|DZRKHG,Pll 

RUN-TIMEI 1S 22 8 6 SECONDS 
RUW«TIM£ RgTIOs 609/38*15,6 
CORE USEDl 36K (71 PAGES) 



